Problema response.redirect

martedì 18 marzo 2008 - 15.54

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

daeldiro Profilo | Newbie

1 messaggi | Data Invio: mar 18 mar 2008 - 15:54

Premesso che sono ignorante in materia di asp in maniera disarmante...

Sto creando un form per iscriversi alla newsletter sul mio sito, ho trovato un software che mi gestisce il tutto ben fatto.
Dal sito devo l'utente invia un form con 4 campi, tra cui l'email.

e qui c'è il mio problema: se il dominio che inserisce l'utente non esiste il codice asp che danno con il programma và in errore e dovrebbe reindirizzare alla pagina di errore, invece il browser si ferma prima del redirect e appare la classica pagina di explorer quando non trova una pagina.

La cosa che mi fà arrabbiare è che facendo un semplice refresh appare la pagina di errore...
www.degrafica.it/m/newsletter.htm

Questo è il codice incriminato...

<%

' SETTINGS

' Type the distribution list managing address:

emailmanager = "info@degrafica.it"

' Type the positive and negative reply pages URLs
' (if the pages are placed in the same directory you can omit the full path
' and just enter the file name, otherwise enter the full URL):

urlok = "http://www.degrafica.it/m/newsletterok.htm"
urlko = "http://www.degrafica.it/m/newsletterko.htm"

' If the server is not setup for e-mail sending, enable the SpecifySMTP
' (set the value 1) and specify the SMTP server name to be used (ask your provider)

SpecifySMTP = 1
ServerSMTP = "smtp.inet.it"

' END SETTINGS

msg = ""

For Each k in Request.Form
If Lcase(k) <> "submit" Then
msg = msg & k & ":" & Request.Form(k) & chr(13) & chr(10)
End If
next

email = Request.Form("email")

Set rex = New RegExp
With rex
.Pattern = "^([a-zA-Z0-9_\.-]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$"
.IgnoreCase = True
.Global = True
End With

Ok = rex.Test(email)

If Ok And (msg <>"") Then
if SpecifySMTP = 1 Then ServerSMTP = "smtp.inet.it"
Mail emailmanager,"Subscribe",msg,email, ServerSMTP
Response.Redirect urlok
Else
Response.Redirect("http://www.degrafica.it/m/newsletterko.htm")
End If

Function Mail(strTo, strSubject, strBody, strFrom, strSMTP)

set iMsg = CreateObject("CDO.Message")

If strSMTP <> "" Then

set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTP

Flds.Update

End If

With iMsg
If strSMTP <> "" Then
Set .Configuration = iConf
End If
.TextBody = strBody
.To = strTo
.From = strFrom
.Subject = strSubject
.Send
End With

Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
End Function

%>

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !