by Kamran (1 Submission)
Category: Active Server Pages
Compatability: ASP (Active Server Pages)
Difficulty: Unknown Difficulty
Originally Published: Thu 25th January 2001
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Ecard from text file
VBcoders
<%
set rs = server.CreateObject ("ADODB.Recordset")
rs.Open "Select * From postal", "DSN=postal;"
do while not rs.EOF
Response.Write(rs("picture"))
rs.MoveNext
loop
%>
----------------send card ----------------
your card is successfully sent to
do you wantr to sens more cardsa???
<%
Dim t
Dim f
Dim h
randomize()
t = Int((9999-1)* Rnd + 1)
f = Int((9999-1)* Rnd + 1)
h = hex(f)
set mfo=server.CreateObject ("scripting.filesystemobject")
set mtf=mfo.CreateTextFile ("c:\Inetpub\wwwroot\prpostcard\"& h & t &".txt")
mtf.writeline ("<html>")
mtf.writeline ("<body>")
mtf.writeline ("<table border=0") & (" width=100%") &(">")
mtf.writeline ("<tr>")
mtf.writeline ("<td")& (" width=27%") & (">")&(" ")& ("</td>")
mtf.writeline ("<td")& (" width=47%") & (">")&("<center>")& ("<STRONG><FONT")& (" color=purple") & (" size=4>")& Request.form("namefrom")& ("</Center>")& ("</FONT></STRONG>")& ("</td>")
mtf.writeline ("<td")& (" width=26%") & (">")&(" ")& ("</td>")
mtf.writeline ("</tr>")
mtf.writeline ("<tr>")
mtf.writeline ("<td")& (" width=27%") & (">")&(" ")& ("</td>")
mtf.writeline ("<td") &(" width=47%") & (">")
mtf.writeline ("<img ") & ("src=")& ("images/")& Request.Form("R1") & (".gif")& (" hspace=5") & (" border=2")& (" WIDTH=300")& (" HEIGHT=200")& (">")& ("<p>") & (" ") & ("</p>")& ("</td>")
mtf.writeline ("</td>")
mtf.writeline ("<td") & (" width=26%") & (">") & (" ") & ("</td>")
mtf.writeline ("</tr>")
mtf.writeline ("<tr>")
mtf.writeline ("<td")& (" width=27%") & (">")&(" ")& ("</td>")
mtf.writeline ("<td")& (" width=47%") & (">")&("<center>")& ("<STRONG><FONT")& (" color=Green") & (" size=4>")& Request.form("nameto")& ("</Center>")& ("</FONT></STRONG>")& ("</td>")
mtf.writeline ("<p>") & (" ") & ("</p></TD>")
mtf.writeline ("<td")& (" width=27%") & (">")&(" ")& ("</td>")
mtf.writeline ("</tr>")
mtf.writeline ("<tr>")
mtf.writeline ("<td") & (" width=27%") & (">") & (" ") & ("</td>")
mtf.writeline ("<td") & (" width=47%") & (">") & (" ") & ("<p>") & Request.form("message")& ("</p>")
mtf.writeline ("<p>") & (" ") & ("</td>")
mtf.writeline ("<td") & (" width=26%") & (">") & (" ") & ("</td>")
mtf.writeline ("</tr>")
mtf.writeline ("<tr>")
mtf.writeline ("<td") & (" width=27%") & (">") & (" ") & ("</td>")
mtf.writeline ("<td") & (" width=47%") & (">") & (" ") & ("</td>")
mtf.writeline ("<td") & (" width=26%") & (">") & ("<P>")& ("<A")& (" href=")& ("mailto:") & Request.form("emailto")&(">")& Request.form("emailto")& ("</A></P>")& ("</td>")
mtf.writeline ("</tr>")
mtf.writeline ("</table>")
mtf.writeline ("</body>")
mtf.writeline ("</html>")
mtf.close
%>
