Har du verkligen med Dim JMail i koden, och inte så den bara definieras i ett kodblock som inte körs, alternativt efter det att du försöker använda objektet med det namnet?
Frågan#1
Hej, jag har dimmat alla variabler, men jag får ett felmedellande typ: Variable uninitiated "JMail" eller nåt. OM jag tar bort: <% Option Explicit %> så fungerar det. Vad har jag gjort för fel?
<%
If Request("submitted") = "true" Then
dim epost
epost = Request("email")
If IsEmpty(epost) Then
epost = "E-post inte angiven"
End If
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.minut.se"
JMail.Priority = 3
JMail.Sender = epost
JMail.AddRecipient "marcus@elksafari.com"
JMail.Subject = "Kontaktformulär på elksafari.com " & lang
JMail.Body = "Avsändare: " & Request("name") & vbNewLine & "Telefonnummer: " & Request("tfn") & vbNewLine & "- Meddelande följer nedan -" & vbNewLine & vbNewLine & Request("message")
dim success
success = JMail.Execute
set JMail = nothing
If success then
Response.redirect("contact_thanks.asp")
Else
Response.redirect("contact_error.asp")
End if
End if
%>