Den laver fejl i mailform
Jeg ligger på surftown windows server.. som skulle understøtte følgende mailform.. Men den kommer med fejl på alle felter..fejlen hedder:
Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'FromName'
/booking/default.asp, line 60
Mit script ser sådan ud.. Hvorfor vil den ikke ta den?
Jeg har forsøgt at bytte Set Mailer = Server.CreateObject("SMTPsvg.Mailer") ud med Set Mailer = Server.CreateObject("CDO.Message")
Men den tager heller ikke den..
<%@ Language=VBScript %>
<%
if Request.Form("sendknap") = "Send" then
' -- Hent form-felter
navn = Request.Form("navn")
adresse = Request.Form("adresse")
postnr = Request.Form("postnr")
by = Request.Form("by")
email = Request.Form("email")
telefon = Request.Form("telefon")
katalog = Request.Form("katalog")
kommentar = Request.Form("kommentar")
' -- Saml emailens tekst
body = navn & vbCrLf & adresse & vbCrLf & postnr & " " & by & vbCrLf & email & vbCrLf & telefon
body = body & vbCrLf & vbCrLf & "Evt. kommentar: " & vbCrLf & vbCrLf & kommentar
' -- Klargør AspMail
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "" & Request.Form("navn") & ""
Mailer.FromAddress = "" & Request.Form("email") & ""
Mailer.RemoteHost = "mail.xx.dk"
Mailer.AddRecipient "xx","kontakt@xx.dk"
Mailer.Subject = "Online booking"
Mailer.BodyText = body
' -- Send mailen
If Mailer.SendMail Then
Response.Write("Vi har modtaget beskeden")
Else
Response.Write("Der skete en fejl. Fejlen var: " & Mailer.Response)
End If
Else
%>
<form method="post" action="default.asp">
<table border="0" STYLE="table-layout: fixed" width="100%" class="text_main">
<tr>
<td width="11%">Navn</td>
<td width="49%"><input type="text" name="navn" size="31"></td>
<td width="11%">Email</td>
<td width="29%"> <input type="text" name="email" size="19"></td>
</tr>
<tr>
<td width="11%">Adresse</td>
<td width="49%"><input type="text" name="adresse" size="31"></td>
<td width="11%">Telefon</td>
<td width="29%"> <input type="text" name="telefon" size="19"></td>
</tr>
<tr>
<td width="11%">Post nr.</td>
<td width="49%"> <input type="text" name="postnr" size="6"> By <input type="text" name="by" size="18"> </td>
<td width="11%"></td>
<td width="29%"> </td>
</tr>
<tr>
<td width="100%" colspan="4">Kommentar <textarea name="kommentar" rows="10" cols="60">Skriv eventuelt kommentar her</textarea><br>
<input type="submit" name="sendknap" value="Send">
</td>
</tr>
</table>
</form>
<%
End If
%>