<% 'Insert your mailserver name and port (usually 25) mailserver="localhost:25" %> <% Flag = request.form("Flag") If IsEmpty(Flag) or Flag = "" then %>

Spedisci una Cartolina!


Scegli l'oggetto:


Scegli l'immagine:





Messaggio:

  
A: ">
Email: ">
Da:
Email:


<% 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, "
") %>

Anteprima...

 

A: <%= anafn1 %>
Da: <%= anafn2 %>

<%= afsogn %>

<%= akvedja %>

<% 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,"sendcard_it.asp","ecard_get_it.asp") scriptname = "http://" & request.servervariables("server_name") & scriptname mailbody = anafn2 & " ti ha mandato una Cartolina" & Vbcrlf & vbcrlf & "
" mailbody = mailbody & vbcrlf & vbcrlf & "
" mailbody = mailbody & "Per visualizzare la cartolina visita " & scriptname & vbcrlf & "
" mailbody = mailbody & "e inserisci" & vbcrlf & "

" mailbody = mailbody & "Postcard Id = " & id & vbcrlf & "
" mailbody = mailbody & "Postcard Password = " & apass & vbCrlf & vbcrlf & "
" blabla = "Hai ricevuto una cartolina di " & anafn2 Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "localhost" Mail.From = anetfang2 Mail.AddAddress anetfang1 Mail.Subject = blabla Mail.IsHTML = True Mail.Body = mailbody Mail.Send %>

Grazie !!

La cartolina è stata spedita a: <%= anafn1 %>
Il Mittente è : <%= anafn2 %>

Back <% end if end if %>