Form in ASP

[enpires]

Ragazzi sto tentando di creare un form in asp, ma purtroppo ho qualche problemino (tanto per cambiare :P)

Andando a testare il forum (potete provare anche voi http://www.villamirella.it/form/anto_get.asp ) Mi da un errore

Errore di run-time di Microsoft VBScript error '800a01a8'

Necessario oggetto: ''

/form/contact.asp, line 31

Alla linea 31 vi è semplicemente la creazione della variabile che definisce il mittente email

EmailFrom = Trim(Request.Form("EmailFrom"))

Non mi sembra sia scritta sbagliata... dove può essere l'errore?? :master:

Grazie a tutti

[pietro09]

Questo forum è così poco frequentato che quando uno c'entra, forse è perchè ha sbagliato

Prova a chiedere di spostarti in ASP, qui siamo in asp.net.

ps. ti suggerisco di spedire anche un poco di codice, altrimenti la vedo dura aiutarti

[enpires]

ihihih chiedo scusa... sto morendo di sonno XD non so se si nota... si se qualche mod passa mi spostasse :P
Grazie mille e scusate l'intrusione ihih

[pietro09]

Originariamente inviato da enpires
ihihih chiedo scusa... sto morendo di sonno XD non so se si nota... si se qualche mod passa mi spostasse :P
Grazie mille e scusate l'intrusione ihih

Ma non andartene

Prova invece a rifare la pagina in asp.net

[enpires]

ae.... io ho gia problemi con l'ASP.... figuriamoci se ci mettiamo anke il net ihihih
ma te non sai da cosa potrebbe essere dovuto il problema?

[pietro09]

Originariamente inviato da enpires
ma te non sai da cosa potrebbe essere dovuto il problema?

No! sono anni che non uso asp, e senza codice... è un poco più difficile

[enpires]

okok copio il codice questa è la pagina in asp vera e propria a cui fa riferimento il post (l'altra è quella ke ho linkato prima che raccoglie i dati).... vabbè ma lo sai

<%
' Villamirella Contact Form 
' http://www.villamirella.it/ 
' Programmer: enpiresyes@hotmail.it  

' declare variables
Dim EmailFrom
Dim EmailTo
Dim Subject
Dim Arrivalday
Dim Arrivalmonth
Dim Arrivalyear
Dim Departureday
Dim Departuremonth
Dim Departureyear
Dim Request
Dim Adults
Dim Children
Dim Infant
Dim FirstName
Dim LastName
Dim AddressCity
Dim Province
Dim PostCode
Dim County
Dim Tel
Dim Fax
Dim Notes

' get posted data into variables
EmailFrom = Trim(Request.Form("EmailFrom")) 
EmailTo = "info@villamirella.it"
Subject = "Richiesta da Sito"
Arrivalday = Trim(Request.Form("Arrivalday"))
Arrivalmonth = Trim(Request.Form("Arrivalmonth"))
Arrivalyear = Trim(Request.Form("Arrivalyear"))
Departureday = Trim(Request.Form("Departureday"))
Departuremonth = Trim(Request.Form("Departuremonth"))
Departureyear = Trim(Request.Form("Departureyear"))
Request = Trim(Request.Form("Request")) 
Adults = Trim(Request.Form("Adults")) 
Children = Trim(Request.Form("Children")) 
Infant = Trim(Request.Form("Infant")) 
FirstName = Trim(Request.Form("FirstName")) 
LastName = Trim(Request.Form("LastName")) 
AddressCity = Trim(Request.Form("AddressCity")) 
Province = Trim(Request.Form("Province")) 
PostCode = Trim(Request.Form("PostCode")) 
County = Trim(Request.Form("County")) 
Tel = Trim(Request.Form("Tel")) 
Fax = Trim(Request.Form("Fax")) 
Notes = Trim(Request.Form("Notes")) 

' validation
Dim validationOK
validationOK=true
If (Trim(EmailFrom)="") Then validationOK=false
If (validationOK=false) Then Response.Write("Richiesta fallita !!! (Errore: Email)")

' prepare email body text
Dim Body
Body = Body & "Arrivalday: " & Arrivalday & VbCrLf
Body = Body & "Arrivalmonth: " & Arrivalmonth & VbCrLf
Body = Body & "Arrivalyear: " & Arrivalyear & VbCrLf
Body = Body & "Departureday: " & Departureday & VbCrLf
Body = Body & "Departuremonth: " & Departuremonth & VbCrLf
Body = Body & "Departureyear: " & Departureyear & VbCrLf
Body = Body & "Request: " & Request & VbCrLf
Body = Body & "Adults: " & Adults & VbCrLf
Body = Body & "Children: " & Children & VbCrLf
Body = Body & "Infant: " & Infant & VbCrLf
Body = Body & "FirstName: " & FirstName & VbCrLf
Body = Body & "LastName: " & LastName & VbCrLf
Body = Body & "AddressCity: " & AddressCity & VbCrLf
Body = Body & "Province: " & Province & VbCrLf
Body = Body & "PostCode: " & PostCode & VbCrLf
Body = Body & "County: " & County & VbCrLf
Body = Body & "Tel: " & Tel & VbCrLf
Body = Body & "Fax: " & Fax & VbCrLf
Body = Body & "Notes: " & Notes & VbCrLf

' send email 
Dim mail
Set mail = Server.CreateObject("CDONTS.NewMail") 
mail.To = EmailTo
mail.From = EmailFrom
mail.Subject = Subject
mail.Body = Body
mail.Send 

' positive response
Response.Write("Villamirella la ringrazia per la sua richiesta. Ricever&agrave; un email di risposta non appena possibile. In caso di mancata risposta, la preghiamo di contattarci ai contatti sopra riportati ------ Villamirella thanks you for your request. You will receive our reply as soon as possible. If you don't receive any reply in a reasonable time, please contact us at above references")
%>

[pietro09]

Prova a sostituire la variabile Request con un'altra perchè sembra nome riservato

Dim Request1 per esempio


Request1 = Trim(Request.Form("Request1"))

Body = Body & "Request: " & Request1 & VbCrLf

a me si ferma qui

Set mail = Server.CreateObject("CDONTS.NewMail")

perchè non ho l'oggetto



ma in asp.net è mooooolto più facile

[enpires]

evvaiii i problemi escono come funghi XD
Cmq innansitutto grazie mille x la pazienza e x l'aiuto
Ora l'errore che mi da è questo

Errore di run-time di Microsoft VBScript error '800a0046'

Autorizzazione negata

/form/contact.asp, line 89

La linea 89 sarebbe l'invio dell'email

mail.Send

Cmq sono sicurissimo che in asp.net è molto + facile ma... e chi lo sai usare XD io ho imparato un pochino di asp perchè mi serviva per questo form... se mi dici ke faccio prima a falro in asp.net t credo ma nn so proprio da dv cominciare

[enpires]

nada de nada? :\