;nameto")
' Print the body of the email
enviar = "Let me inform you that " & session("namefrom") & _
Chr(13) & Chr(10) & _
"have sent you a digital card. To see " & _
"it follow the link :" & _
Chr(13) & Chr(10) & Chr(13) & Chr(10) & _
"http://www.???????.com/view.asp?fromn=out&" & _
"ident=" & identifier & _
"&psw=" & passw & " " & Chr(13) & Chr(10) & _
" your card is available till the day " & _
formatDateTime(d,2) & _
Chr(13) & Chr(10) & Chr(13) & Chr(10) & _
Chr(13) & Chr(10) & _
" Thanks"
Mail.Body = enviar
'Just skip if there are any errors...
On Error resume Next
' This will send the email
Mail.Send
' Display an error message if there was an error
If Err <> 0 Then %>
<img src="images/error.gif" width="322" height="53"
border="0">
<%
'Comment out this code if you want to see
'the error number
'Response.Write "<br><br>" & "Error found : " & _
Err.description & "<br><br>"
Response.Write "<center><p>SERVER SIDE ERROR, " & _
"contact site webmaster.</p></center>"
goby = 0
Else
Response.Write "<br><br><br><center><p>POSTCARD WAS SENT " & _
"NO PROBLEMS...<br>"
End if
End if
' I think that you have seen that I use the JavaScript history.back
' and go. I use it so when the user come back he don't
' loose any information already entered into the form.
%>
<center>
<a href="javascript:history.go('-2')">
<img src="../images/rebuiltbutton.gif" width="60"
height="53" border="0">
</a>
</center>
</strong></small></font>
</body>
</html>
Get the E-Mail free component:http://www.aspemail.com/
Let me explain how to set it up. Put the component wherever you want, I usually put the components I use
in the directory C:Inetpubcomponents. Then register it (after you put it in the directory you want) by
typing:
regsvr32 AspEmail.dll
from the command line. That's all! Remember, the email code won't work unless you register the component!
If you have any questions, please contact me:http://www.4guysfromrolla.com/webtech/joao.shtml
' Print the body of the email
enviar = "Let me inform you that " & session("namefrom") & _
Chr(13) & Chr(10) & _
"have sent you a digital card. To see " & _
"it follow the link :" & _
Chr(13) & Chr(10) & Chr(13) & Chr(10) & _
"http://www.???????.com/view.asp?fromn=out&" & _
"ident=" & identifier & _
"&psw=" & passw & " " & Chr(13) & Chr(10) & _
" your card is available till the day " & _
formatDateTime(d,2) & _
Chr(13) & Chr(10) & Chr(13) & Chr(10) & _
Chr(13) & Chr(10) & _
" Thanks"
Mail.Body = enviar
'Just skip if there are any errors...
On Error resume Next
' This will send the email
Mail.Send
' Display an error message if there was an error
If Err <> 0 Then %>
<img src="images/error.gif" width="322" height="53"
border="0">
<%
'Comment out this code if you want to see
'the error number
'Response.Write "<br><br>" & "Error found : " & _
Err.description & "<br><br>"
Response.Write "<center><p>SERVER SIDE ERROR, " & _
"contact site webmaster.</p></center>"
goby = 0
Else
Response.Write "<br><br><br><center><p>POSTCARD WAS SENT " & _
"NO PROBLEMS...<br>"
End if
End if
' I think that you have seen that I use the JavaScript history.back
' and go. I use it so when the user come back he don't
' loose any information already entered into the form.
%>
<center>
<a href="javascript:history.go('-2')">
<img src="../images/rebuiltbutton.gif" width="60"
height="53" border="0">
</a>
</center>
</strong></small></font>
</body>
</html>
Get the E-Mail free component:http://www.aspemail.com/
Let me explain how to set it up. Put the component wherever you want, I usually put the components I use
in the directory C:Inetpubcomponents. Then register it (after you put it in the directory you want) by
typing:
regsvr32 AspEmail.dll
from the command line. That's all! Remember, the email code won't work unless you register the component!
If you have any questions, please contact me:http://www.4guysfromrolla.com/webtech/joao.shtml