<% if request.QueryString("formularioid") <> "" then Formulario_ID = request.QueryString("formularioid") if isnumeric(Formulario_ID) = false then response.end end if end if Set cadform = Server.CreateObject("ADODB.Recordset") cadform.ActiveConnection = MM_Loja_STRING cadform.Source = "SELECT * FROM campos WHERE CadastroID= " &cdbl(Formulario_ID)&" ORDER BY CampoOrdem ASC" cadform.CursorType = 1 cadform.CursorLocation = 2 cadform.LockType = 3 cadform.Open() cadform_numRows = 0 Function maiuscula(str) MeuArray = Split(str," ") for i = LBound(MeuArray) to UBound(MeuArray) resultado = resultado & UCase(LEFT(MeuArray(i),1)) & LCase(RIGHT(MeuArray(i),Len(MeuArray(i))-1)) & " " next maiuscula = resultado End Function %> <% Set valores = Server.CreateObject("ADODB.Recordset") valores.ActiveConnection = MM_Loja_STRING valores.Source = "SELECT * FROM valorescampos ORDER BY ValorCampoOrdem ASC" valores.CursorType = 0 valores.CursorLocation = 2 valores.LockType = 1 valores.Open() valores_numRows = 0 %> <% Set dadoscadastro = Server.CreateObject("ADODB.Recordset") dadoscadastro.ActiveConnection = MM_Loja_STRING dadoscadastro.Source = "SELECT * FROM dadoscadastros" dadoscadastro.CursorType = 2 dadoscadastro.CursorLocation = 2 dadoscadastro.LockType = 3 dadoscadastro.Open() dadoscadastro_numRows = 0 %> <% Set PaginaN_cmd = Server.CreateObject ("ADODB.Command") PaginaN_cmd.ActiveConnection = MM_Loja_STRING PaginaN_cmd.CommandText = "SELECT * FROM cadastro WHERE CadastroID = ?" PaginaN_cmd.Prepared = true PaginaN_cmd.Parameters.Append PaginaN_cmd.CreateParameter("param1", 5, 1, -1, Formulario_ID) ' adDouble Set PaginaN = PaginaN_cmd.Execute PaginaN_numRows = 0 %> <% RepeatForm__numRows = -1 RepeatForm__index = 0 cadform_numRows = cadform_numRows + RepeatForm__numRows %> <% if request.form("enviar")<>"" then while not cadform.eof corpo=corpo & (cadform.Fields.Item("CampoRotulo").Value) & ": " & request.form("c" & cadform.Fields.Item("CampoID").Value) & "
" cadform.movenext wend dadoscadastro.addnew dadoscadastro("CadastroID")=(paginaN.Fields.Item("CadastroID").Value) dadoscadastro("DadoCaddata")=now dadoscadastro("DadoCaddados")=corpo dadoscadastro.update Set eObjMail = Server.CreateObject("Persits.MailSender") eObjMail.Host = "smtp.publiquefacil.com.br" eObjMail.Port = 587 eObjMail.Username = "contato@publiquefacil.com.br" eObjMail.Password = "1a@2bcon" eObjMail.From = "contato@publiquefacil.com.br" 'eObjMail.AddReplyTo (paginaN.Fields.Item("CadastroEmail").Value) eObjMail.AddAddress (paginaN.Fields.Item("Cadastroemail").Value) eObjMail.Subject = "Easy Publish - "& Request.ServerVariables("SERVER_NAME") &" - " & (paginaN.Fields.Item("Cadastronome").Value) eObjMail.Body = corpo eObjMail.IsHTML = True eObjMail.Send Set eObjMail = nothing response.Redirect((paginaN.Fields.Item("Cadastrourl").Value)) end if %>

<%=(PaginaN.Fields.Item("CadastroNome").Value)%>

<% corpo = PaginaN.Fields.Item("CadastroCorpo").Value if corpo <> "" then %>
<%=corpo%>
<%end if%>
<% While ((RepeatForm__numRows <> 0) AND (NOT cadform.EOF)) %>
<%=(cadform.Fields.Item("CampoRotulo").Value)%> <% if (cadform.Fields.Item("CampoObrigatorio").Value)="Y" then %> * <% end if %>
<% Select Case (cadform.Fields.Item("CampoTipo").Value) case "text" %> " type="text" class="campo" value="<%=(cadform.Fields.Item("Campoinicial").Value)%>" size="<%=(cadform.Fields.Item("Campotamanho").Value)%>" maxlength="<%=(cadform.Fields.Item("Campotamanhomax").Value)%>"> <% case "select" %> <% case "textarea" %> <% case "checkbox" %> " value="sim"<%=(cadform.Fields.Item("Campoinicial").Value)%>> <% case "radio" %> <% valores.filter="valorcampocampo=" & (cadform.Fields.Item("Campoid").Value) %> <% If valores.eof Then %> Nenhum Valor <% else %> <% while not valores.eof %>
" value="<%=(valores.Fields.Item("ValorCampoValor").Value)%>"<% if valores.Fields.Item("ValorCampoS").Value<>"" then %> checked<% end if %>> <%=(valores.Fields.Item("ValorCampoNome").Value)%>


<% valores.movenext wend %> <% End If %> <% end select %> <% RepeatForm__index=RepeatForm__index+1 RepeatForm__numRows=RepeatForm__numRows-1 cadform.MoveNext() Wend %>

 

<% cadform.Close() Set cadform = Nothing %> <% valores.Close() Set valores = Nothing %> <% dadoscadastro.Close() Set dadoscadastro = Nothing %> <% PaginaN.Close() Set PaginaN = Nothing %>