<% dim pic,action,rndNumber pic = request.queryString("pic") action = request("action") select case action case "send" Const fsoForWriting = 2 Dim objFSO Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 'Open the text file Dim objTextStream '******************************************* 'change the path to your path!!!!!!!!!!!! '******************************************* randomize rndNumber = rnd*1000000000000 rndNumber = int(rndNumber) dim path path = server.MapPath("postcards/"&rndNumber&".htm") Set objTextStream = objFSO.OpenTextFile(path, fsoForWriting, True) 'Display the contents of the text file objTextStream.WriteLine "Cartao Virtual nosbairros.com.br" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "" '**************change the url to your server!******************** objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "
Mensagem:" & request.form("mes") & "
Enviada por:" & request.form("name") & "
Email seu amigo:" & request.form("mmes") & "
Envie seu Cartão Virtual! Clique aqui!
Para conhecer o site nosbairros! Clique aqui!
" 'Close the file and clean up objTextStream.Close Set objTextStream = Nothing Set objFSO = Nothing Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.To = request.form("email") objCDO.From = "cartoes@nosbairros.com.br" objCDO.Subject = "Voce acaba de receber um cartao!" '**************change the url to your server!******************** objCDO.Body = request.form("name")& ", para visualizar seu cartao clique no link! http://www.nosbairros.com.br/acontece/card/postcards/"&rndNumber&".htm" objCDO.Send set objCDO = nothing response.write "" response.end end select %> Cartoes virtuais nosbairros.com.br
<% set conn=server.createobject("adodb.connection") set rs=server.createobject("adodb.recordset") conn.open dsn sql = "select * from postcard where ID="&pic rs.open sql,conn%> ">
 
" border="0" alt="">
Seu nome:

Seu e-mail:

Email do seu amigo:

Sua mensagem:

<%call close()%>

fotos RS brazil porto alegre serra gaucha turismo gaucho guaiba