sono le 6,30 dopo aver passato la notte in bianco sono riuscito a togliere tutti gli errori che mi dava ora mi dice email inviata regolarmente ma in realta non invia un bel nulla ,sono sfinito e vado a letto se qualcuno da un'occhiata a questo script mi farebbe il piu grosso regalo di ferragosto
<%@LANGUAGE="VBSCRIPT"%>
<%
stremail = Request.Form("email")
%>
<%
sql= "SELECT username, email, password FROM utenti WHERE email ='" & stremail & "'"
set objRs = Server.CreateObject("ADODB.recordset")
objRs.CursorLocation = 3
objRs.Open sql,Conn,0,1
If objRs.EOF Then
Response.Write "<CENTER>"
Response.Write "<FONT>EMAIL NON TROVATA</FONT>
"
Response.Write "Torna"
Response.Write "</CENTER>"
Else
username = objRs.Fields("username")
password = objRs.Fields("password")
email = objRs.Fields("email")
dim miamail
Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = "Altruder@terzaera.it"
MiaMail.To = "stremail"
MiaMail.Subject = oggetto
MiaMail.TextBody = testo
end if
MiaMail.Fields("urn:schemas:httpmail:importance"). Value = 2
MiaMail.Fields.Update()
MiaMail.Send()
Set MiaMail = Nothing
Conn.Close
set Conn = Nothing
Response.Write "<CENTER>"
Response.Write "<FONT>Email inviata correttamente</FONT>
"
%>
</font>[/b]
<style>
A:visited {color:"#000000";text-decoration:none}
A:hover {color:"#000000";background:white}
A:link {color:"#000000";text-decoration:none}
</style>
<body bgcolor="#993333">
<div align="center">
Torna</div> </div>
abbiate pieta di un povero e assonato ignorante
Rispondi quotando
