codice:
<%
'Insert your mailserver name and port (usually 25)
mailserver="mail.theglasser.com:25"
%>
<html>
<head>
<title>Sakki's digital postcards</title>
<%
Flag = request.form("Flag")
If IsEmpty(Flag) or Flag = "" then
%>
</head>
<body bgcolor="#000000" text="#ffffff" link="#ffffff" alink="#ffffff" vlink="#ffffff">
<font size="6" face="arial">
Send a digital postcard</font>
<hr>
<form action="skrifa.asp" method="POST" >
<font size="5" face="arial">Choose your heading</font>
<font size="3" face="arial">
<input type="text" name="fsogn" size="50" value="Merry christmas ! ! ! ">
<hr>
<font size="5" face="arial">Chooser your image</font>
<input type="radio" checked name="mynd" value="1.jpg">
[img]1.jpg[/img]
<input type="radio" name="mynd" value="2.jpg">
[img]2.jpg[/img]
<input type="radio" name="mynd" value="3.jpg">
[img]3.jpg[/img]
<input type="radio" name="mynd" value="4.jpg">
[img]4.jpg[/img]
<input type="radio" name="mynd" value="5.jpg">
[img]5.jpg[/img]
<input type="radio" name="mynd" value="6.jpg">
[img]6.jpg[/img]
<hr>
<table border="0">
<tr><td></td><td>Message:</td><td></td><td></td></tr>
<tr><td></td><td rowspan="4"><textarea name="kvedja" rows="8" cols="20"></textarea></td><td>To:</td><td><input type="text" size="20" name="nafn1" Value="<%= Request.QueryString("nafn") %>"></td></tr>
<tr><td></td><td>Email</td><td><input type="text" size="20" name="netfang1" Value="<%= Request.QueryString("send") %>"></td></tr>
<tr><td></td><td>From</td><td><input type="text" size="20" name="nafn2"></td></tr>
<tr><td></td><td>Email</td><td><input type="text" size="20" name="netfang2"></td></tr>
</table>
<input type="hidden" name="Flag" value=1>
<input type="submit" value="Preview postcard">
</form>
<%
end if
if flag = 1 then
anafn1 = request.form("nafn1")
anetfang1 = request.form("netfang1")
anafn2 = request.form("nafn2")
anetfang2 = request.form("netfang2")
akvedja = request.form("kvedja")
afsogn = request.form("fsogn")
amynd = request.form("mynd")
akvedja = server.HTMLencode(Request.form("kvedja"))
akvedja = Replace(akvedja, vbCrLf, "
")
%>
</head>
<body bgcolor="#000000" text="#ffffff" link="#ffffff" alink="#ffffff" vlink="#ffffff">
<center><font size="5">Postcard preview...</font>
<table border="1" width="700">
<tr>
<td rowspan="2" width="500"><font size="5"><%= afsogn %>
</font>
<center>[img]<%= amynd %>[/img]</center>
<%= akvedja %>
</td>
<td width="200"></td>
</tr>
<tr>
<td width="200" rowspan="2"><font color="#FFFF00">To:
<%= anafn1 %>
</font><a href="<%= anetfang1 %>"><font
color="#FFFF00"><%= anetfang1 %></font></a><font
color="#FFFF00">
From:
<%= anafn2 %>
</font><a href="<%= anetfang2 %>"><font
color="#FFFF00"><%= anetfang2 %></font></a><font
color="#FFFF00"></font></td>
</tr>
</table>
<form action="skrifa.asp" method="POST">
<input type="hidden" name="nafn1" value="<%= anafn1 %>">
<input type="hidden" name="netfang1" value="<%= anetfang1 %>">
<input type="hidden" name="nafn2" value="<%= anafn2 %>">
<input type="hidden" name="netfang2" value="<%= anetfang2 %>">
<input type="hidden" name="kvedja" value="<%= akvedja %>">
<input type="hidden" name="mynd" value="<%= amynd %>">
<input type="hidden" name="fsogn" value="<%= afsogn %>">
<input type="hidden" name="flag" value="2">
<input type="submit" value="Send postcard">
<input type="button" value="Fix it" OnClick="javascript:history.go(-1)">
</center>
<%
End If
If Flag = 2 then
Randomize
apass = int(rnd*99999)+1
adags = now()
anafn1 = request.form("nafn1")
anetfang1 = request.form("netfang1")
anafn2 = request.form("nafn2")
anetfang2 = request.form("netfang2")
akvedja = request.form("kvedja")
afsogn = request.form("fsogn")
amynd = request.form("mynd")
set conn = server.createobject("adodb.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("kort.mdb")
conn.Open DSNtemp
SQLstmt = "INSERT INTO kort (pass,dags,nafn1,netfang1,nafn2,netfang2,kvedja,fsogn,mynd)"
SQLstmt = SQLstmt & " VALUES ("
SQLstmt = SQLstmt & "'" & apass & "',"
SQLstmt = SQLstmt & "'" & adags & "',"
SQLstmt = SQLstmt & "'" & anafn1 & "',"
SQLstmt = SQLstmt & "'" & anetfang1 & "',"
SQLstmt = SQLstmt & "'" & anafn2 & "',"
SQLstmt = SQLstmt & "'" & anetfang2 & "',"
SQLstmt = SQLstmt & "'" & akvedja & "',"
SQLstmt = SQLstmt & "'" & afsogn & "',"
SQLstmt = SQLstmt & "'" & amynd & "'"
SQLstmt = SQLstmt & ")"
Set RS = conn.execute(SQLstmt)
If err.number>0 then
response.write "VBScript error:" & "
"
response.write "Number=" & err.number & "
"
response.write "Explanation.=" & err.description & "
"
response.write "Help Context=" & err.helpcontext & "
"
response.write "Help Path=" & err.helppath & "
"
response.write "Native Error=" & err.nativeerror & "
"
response.write "Source=" & err.source & "
"
response.write "SQLState=" & err.sqlstate & "
"
end if
IF conn.errors.count> 0 then
response.write "Access database error" & "
"
response.write SQLstmt & "
"
for counter= 0 to conn.errors.count
response.write "Error #" & conn.errors(counter).number & "
"
response.write "Explanation. -> " & conn.errors(counter).description & "
"
next
Conn.Close
set conn = nothing
else
Conn.Close
set conn = nothing
set conn = server.createobject("adodb.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.MapPath("kort.mdb")
conn.Open DSNtemp
sqlstmt = "SELECT * FROM kort WHERE nafn1 = "
sqlstmt = sqlstmt & "'" & anafn1 & "'"
sqlstmt = sqlstmt & " AND pass = "
sqlstmt = sqlstmt & apass
sqlstmt = sqlstmt & " ORDER BY id DESC;"
'rs.Open sqlstmt,conn,3,3
set rs = conn.Execute(sqlstmt)
id = rs("id")
Conn.Close
Set conn = nothing
dim mailbody
scriptname = Request.servervariables("script_name")
scriptname = Replace(scriptname,"skrifa.asp","skoda.asp")
scriptname = "http://" & request.servervariables("server_name") & scriptname
mailbody = anafn2 & " has sent you a postcard" & Vbcrlf & vbcrlf
mailbody = mailbody & "You can pick your postcard up at the address :" & vbcrlf
mailbody = mailbody & ScriptName & "?id=" & id & "&pass=" & apass
mailbody = mailbody & vbcrlf & vbcrlf
mailbody = mailbody & "Or visit " & scriptname & vbcrlf
mailbody = mailbody & "And enter" & vbcrlf
mailbody = mailbody & "Postcard Id = " & id & vbcrlf
mailbody = mailbody & "Postcard Password = " & apass & vbCrlf & vbcrlf
mailbody = mailbody & "Written by Sakki - http://www.welcome.to/sakki"
blabla = "Postcard from " & anafn2
'Response.Write mailbody
set SMTP=Server.CreateObject("Jmail.SMTPMail")
SMTP.ServerAddress= mailserver
SMTP.Sender=anetfang2
SMTP.AddRecipient anetfang1
SMTP.Subject=blabla
SMTP.Body=mailbody
SMTP.Execute
%>
</head>
<body bgcolor="#000000" text="#ffffff" link="#ffffff" alink="#ffffff" vlink="#ffffff">
[b]
Thank you !!
Postcard has been sent to : <%= anafn1 %>
Sender is : <%= anafn2 %>
Back
<%
end if
end if
%>
</body>
</html>
Permessi di invio
Rispondi quotando