JMAIL og 2 fejl, har brug for hjælp til at løse fejlen
HejJeg har lavet en bestillingsside hvor man skal kunne bestille stader til et loppemarked og så skal der via JMAIL komme en email til mig og til den som har udfyldt formularen, det hele virker, men den kommer med 2 scripts fejl i starten når man loader siden, en i linie 30 og en i line 41, er der en som vil hjælpe mig med at løse fejlene. på forhånd tak.
link: http://www.werges.dk/lop/bestilling.asp
koden kommer her:
<%
Set JMail = Server.CreateObject("JMail.SMTPMail")
Response.Expires = 0
'Her bliver variabler til inputene fra formen defineret
Dim strNavn, strEmail, strTlf, strDato0, strStand0, strDato1, strStand1, strDato2, strStand2,strDato3, strStand3, strDato4, strStand4, strKommentar
'Formularens felter tjekkes for data og hentes
If Request.ServerVariables("CONTENT_LENGTH") <> 0 Then
' Følgende linier henter dataen fra form-mailen.
strNavn = Trim(Request.Form("txtNavn"))
strEmail = Trim(Request.Form("txtEmail"))
strTlf = Trim(Request.Form("txtTlf"))
strDato0 = Trim(Request.Form("txtDato0"))
strStand0 = Trim(Request.Form("txtStand0"))
strDato1 = Trim(Request.Form("txtDato1"))
strStand1 = Trim(Request.Form("txtStand1"))
strDato2 = Trim(Request.Form("txtDato2"))
strStand2 = Trim(Request.Form("txtStand2"))
strDato3 = Trim(Request.Form("txtDato3"))
strStand3 = Trim(Request.Form("txtStand3"))
strDato4 = Trim(Request.Form("txtDato4"))
strStand4 = Trim(Request.Form("txtStand4"))
'strKommentar = Trim(Request.Form("txtKommentar"))
'Konfiguration af server:
JMail.ServerAddress = "websmtp.werges.dk"
JMail.sender = "admin@werges.dk"
JMail.subject = "Informationer"
JMail.AddRecipient strEmail
'selve email indholdet:
JMAIL.BODY = "& VbCrLF & VbCrLF"
JMail.Body = "Vi har registreret disse informationer fra din bestilliing: " & VbCrLf & VbCrLf
JMail.Body = JMail.Body & "Navn: " & strNavn & VbCrLf
JMail.Body = JMail.Body & "Email: " & strEmail & VbCrLf
JMail.Body = JMail.Body & "Telefon nr.: " & strTlf & VbCrLf & VbCrLf
JMail.Body = JMail.Body & "Dato: " & strDato0 & " - Antal stade: " & strStand0 & VbCrLf
JMail.Body = JMail.Body & "Dato: " & strDato1 & " - Antal stade: " & strStand1 & VbCrLf
JMail.Body = JMail.Body & "Dato: " & strDato2 & " - Antal stade: " & strStand2 & VbCrLf
JMail.Body = JMail.Body & "Dato: " & strDato3 & " - Antal stade: " & strStand3 & VbCrLf
JMail.Body = JMail.Body & "Dato: " & strDato4 & " - Antal stade: " & strStand4 & VbCrLf
'prioritet på email, 1 = højeste (Haster / Vigtigt), 3 = normal, 5 = lavest
JMail.Priority = 3
JMail.Execute
%>
<HTML>
<HEAD>
<TITLE>Hørsholm Loppemarked</TITLE>
</HEAD>
<BODY bgcolor="#E0E0E0">
<TABLE WIDTH=400 HEIGHT=450 BORDER=0 ALIGN="CENTER" CELLPADDING=0 CELLSPACING=0 RULES="NONE" FRAME="VOID">
<TR>
<TD WIDTH=100% HEIGHT=15 ALIGN="CENTER" VALIGN="TOP">
<CENTER>
...Tak for din bestilling...
<br><br>
<a href="/default.asp">Tilbage til Hovedsiden klik her</a>
</CENTER>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>
<%
Else
%>
<HTML>
<HEAD>
<TITLE>Hørsholm Loppemarked - Bestilling</TITLE>
<SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript">
function validate(form1) {
//Navn-feltet
if (form1.txtnavn.value == "") {
alert("Husk at angive dit navn!");
document.form1.txtnavn.focus();
return false;
}
//Telefonnummer-feltet
if (form1.txttlf.value == "") {
alert("Husk at angive et !");
document.form1.txttlf.focus();
return false;
}
else {
//e-mail-feltet
if (document.form1.txtemail.value.indexOf("@")==-1 || document.form1.txtemail.value.indexOf(".")==-1) {
alert("Du har ikke udfyldt e-mail feltet korrekt");
document.form1.txtemail.focus();
return false;
}
}
}
return true;
}
//Cursoren står i første felt (txtNavn)
function start() {
document.form1.txtnavn.focus();
return false;
}
</SCRIPT>
</HEAD>
<BODY ONLOAD="return start()" bgcolor="#E0E0E0">
<FORM NAME="form1" ACTION="bestilling.asp" METHOD=POST ONSUBMIT="return validate(this)">
<div align="center">
<table border="0" style="border-collapse: collapse" width="903" id="table1" cellpadding="0" cellspacing="2" height="600">
<tr>
<td colspan="3" bordercolor="#00A000" style="border: 2px solid #00A000; padding-left: 0; padding-right: 0; padding-top: 1px; padding-bottom: 1px" width="903" height="124">
<a href="default.asp">
<img border="0" src="images/Header.jpg" width="903" height="122"></a></td>
</tr>
<tr>
<td rowspan="12" width="207" style="border: 2px solid #00A000; padding-left: 6px; padding-right: 0; padding-top: 1px; padding-bottom: 1px" align="left" valign="top">
<!-- #include file="nav.asp" --></td>
<td width="3"></td>
<td rowspan="10" width="690" style="border: 2px solid #00A000; padding-left: 6px" align="left" valign="top" height="468">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="690" id="table2">
<tr>
<td width="114"></td>
<td width="575" colspan="5"> </td>
</tr>
<tr>
<td width="114"><font face="Arial" size="2">Navn:</font></td>
<td width="575" colspan="5"><input type="text" name="txtNavn" size=52></td>
</tr>
<tr>
<td width="114"><font face="Arial" size="2">Telefon nr.:</font></td>
<td width="575" colspan="5"><input type="text" name="txtTlf" size=52></td>
</tr>
<tr>
<td width="114"><font face="Arial" size="2">E-mail:</font></td>
<td width="575" colspan="5"><input type="text" name="txtemail" size=52></td>
</tr>
<tr>
<td width="114"> </td>
<td width="575" colspan="5"> </td>
</tr>
<tr>
<td width="114"><font face="Arial" size="2">Vælg datoer:</font></td>
<td width="114"><font face="Arial" size="2">
<%
Set oDB = Server.CreateObject("ADODB.connection")
oDB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../db/lop.mdb")
Set oRS = oDB.execute("SELECT AutoID,DatoSoendage FROM [Datoer] ORDER BY DatoSoendage DESC")
%>
<select name="txtDato0">
<% Do While not oRS.EOF %>
<option value="<%=CDate(oRS("DatoSoendage"))%>"> <%=CDate(oRS("DatoSoendage"))%></option>
<% oRS.MoveNext
Loop
oRS.Close
set oRS = Nothing
%>
</select>
</font></td>
<td width="115">
<%
Set oDB = Server.CreateObject("ADODB.connection")
oDB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../db/lop.mdb")
Set oRS = oDB.execute("SELECT AutoID,DatoSoendage FROM [Datoer] ORDER BY DatoSoendage DESC")
%>
<select name="txtDato1">
<% Do While not oRS.EOF %>
<option value="<%=CDate(oRS("DatoSoendage"))%>"> <%=CDate(oRS("DatoSoendage"))%></option>
<% oRS.MoveNext
Loop
oRS.Close
set oRS = Nothing
%>
</select>
</td>
<td width="115">
<%
Set oDB = Server.CreateObject("ADODB.connection")
oDB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../db/lop.mdb")
Set oRS = oDB.execute("SELECT AutoID,DatoSoendage FROM [Datoer] ORDER BY DatoSoendage DESC")
%>
<select name="txtDato2">
<% Do While not oRS.EOF %>
<option value="<%=CDate(oRS("DatoSoendage"))%>"> <%=CDate(oRS("DatoSoendage"))%></option>
<% oRS.MoveNext
Loop
oRS.Close
set oRS = Nothing
%>
</select>
</td>
<td width="115">
<%
Set oDB = Server.CreateObject("ADODB.connection")
oDB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../db/lop.mdb")
Set oRS = oDB.execute("SELECT AutoID,DatoSoendage FROM [Datoer] ORDER BY DatoSoendage DESC")
%>
<select name="txtDato3">
<% Do While not oRS.EOF %>
<option value="<%=CDate(oRS("DatoSoendage"))%>"> <%=CDate(oRS("DatoSoendage"))%></option>
<% oRS.MoveNext
Loop
oRS.Close
set oRS = Nothing
%>
</select>
</td>
<td width="115">
<%
Set oDB = Server.CreateObject("ADODB.connection")
oDB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../db/lop.mdb")
Set oRS = oDB.execute("SELECT AutoID,DatoSoendage FROM [Datoer] ORDER BY DatoSoendage DESC")
%>
<select name="txtDato4">
<% Do While not oRS.EOF %>
<option value="<%=CDate(oRS("DatoSoendage"))%>"> <%=CDate(oRS("DatoSoendage"))%></option>
<% oRS.MoveNext
Loop
oRS.Close
set oRS = Nothing
%>
</select>
</td>
</tr>
<tr>
<td width="114"> </td>
<td width="114"> </td>
<td width="115"> </td>
<td width="115"> </td>
<td width="115"> </td>
<td width="115"> </td>
</tr>
<tr>
<td width="114"><font face="Arial" size="2">Vælg antal
stader</font></td>
<td width="114"><select name="txtStand0">
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
</select></td>
<td width="115"><select name="txtStand1">
<option value="Ingen">Ingen</option>
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
</select></td>
<td width="115"><select name="txtStand2">
<option value="Ingen">Ingen</option>
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
</select></td>
<td width="115"><select name="txtStand3">
<option value="Ingen">Ingen</option>
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
</select></td>
<td width="115"><select name="txtStand4">
<option value="Ingen">Ingen</option>
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
</select></td>
</tr>
<tr>
<td width="114"> </td>
<td width="114"> </td>
<td width="115"> </td>
<td width="115"> </td>
<td width="115"> </td>
<td width="115"> </td>
</tr>
<tr>
<td width="114"> </td>
<td width="114"> </td>
<td width="115"> </td>
<td width="115"> </td>
<td width="115"> </td>
<td width="115"> </td>
</tr>
</table>
<p>
<input type="submit" name="submit" value="Bestil stade">
<input type="reset" value="Nulstil" name="B2"></p>
</td>
</tr>
<tr>
<td width="3"></td>
</tr>
<tr>
<td width="3"></td>
</tr>
<tr>
<td width="3"></td>
</tr>
<tr>
<td width="3"></td>
</tr>
<tr>
<td width="3"></td>
</tr>
<tr>
<td width="3"></td>
</tr>
<tr>
<td width="3"></td>
</tr>
<tr>
<td width="3"></td>
</tr>
<tr>
<td width="3"></td>
</tr>
<tr>
<td width="3"></td>
<td rowspan="2" width="690" style="border: 2px solid #00A000; padding-left: 6px" align="right" valign="bottom">
<p align="right"><a href="http://www.werges.dk"><img border="0" src="images/DesignBy.jpg" width="100" height="20"></a></td>
</tr>
<tr>
<td width="3"></td>
</tr>
</table>
</div>
</body>
</form>
</html>
<% End If %>
