<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% DIM CURSO DIM NOME DIM TELEFONE DIM EMAIL DIM CURSOSEL CURSOSEL = Request("CURSO") CURSO = Request("CURSO") NOME = Request("NOME") TELEFONE = Request("TELEFONE") EMAIL = Request("EMAIL") %> <% Dim RS Dim RS_numRows Set RS = Server.CreateObject("ADODB.Recordset") RS.ActiveConnection = MM_servicon_STRING RS.Source = "SELECT * FROM TBLVIDEOS ORDER BY ORDEM" RS.CursorType = 0 RS.CursorLocation = 2 RS.LockType = 1 RS.Open() RS_numRows = 0 %> <% Dim RSNEWS Dim RSNEWS_numRows Set RSNEWS = Server.CreateObject("ADODB.Recordset") RSNEWS.ActiveConnection = MM_servicon_STRING RSNEWS.Source = "SELECT * FROM TBLNEWS" RSNEWS.CursorType = 0 RSNEWS.CursorLocation = 2 RSNEWS.LockType = 3 RSNEWS.Open() 'Inclui um novo registro IF Request("NOME") <> "" AND Request("TELEFONE") <> "" AND Request("EMAIL") <> "" THEN RSNEWS.AddNew RSNEWS("NOME") = Request("NOME") RSNEWS("TELEFONE") = Request("TELEFONE") RSNEWS("EMAIL") = Request("EMAIL") RSNEWS("CURSO") = Request("CURSO") RSNEWS.UPDATE END IF RSNEWS_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 RS_numRows = RS_numRows + Repeat1__numRows %> Vídeos em AVI, videos leves
Videos Disponíveis, clique no título para ver ao lado :
<% While ((Repeat1__numRows <> 0) AND (NOT RS.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 RS.MoveNext() Wend %>
" target="principal"><%=(RS.Fields.Item("CURSO").Value)%>

 

<% 'campos do formulário Produto = request("Curso") nome = request("nome") cpf = request("cpf") email = request("email") CEP = request("cep") Endereco = request("endereco") Cidade = request("cidade") Estado = request("estado") Telefone = request("telefone") Produto = request("Produto") Conheceu = request("conheceu") Comentarios = request("comentarios") msgbody = "" msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & " " msgbody = msgbody & "
Produto:" & Curso & "
Nome:" & nome & "
CPF" & cpf & "
Email" & email & "
CEP" & cep & "
Endereco" & endereco & "
cidade" & cidade & "
Estado" & estado & "
Telefone" & telefone & "
Produto" & produto & "
Conheceu" & conheceu & "
Comentarios" & comentarios & "
" %> <% if Request("NOME") <> "" AND Request("TELEFONE") <> "" AND Request("EMAIL") <> "" THEN %> <% '''*********código ativo com cdonts set mail=server.CreateObject("CDONTS.NewMail") mail.From= "suporte@sibusca.com.br" mail.To = "" mail.Cc = "" mail.Bcc = "suporte@sibusca.com.br" mail.Subject = "Cadastro Para Newsletter Sibusca" mail.Body = msgbody mail.BodyFormat = 0 ' 0 = HTML, 1 = Plain mail.MailFormat = 0 ' 0 = MIME, 1 = Text mail.Importance = 0 ' 0 =High, 1 = Medium, 2 = Low 'mail.attachFile ("c:\images\mypicture.gif") ' também pode enviar imagens em anexo mail.Send set mail=nothing response.redirect "../resposta.htm" %> <% RS.Close() Set RS = Nothing %> <% RSNEWS.Close() Set RSNEWS = Nothing %> <% END IF %>