Min webshop gemmenføre ikke ordre?
når jeg har indtastet køber infomationer og trykker send så viser den ikke den side der hedder ordre.asp siden ser sådanne ud:<!--#include file="03101946.asp"-->
<%
Response.Buffer = true
namn = Request.Form("namn")
adress = Request.Form("adress")
postnr1 = Request.Form("postnr1")
postnr2 = Request.Form("postnr2")
padress = Request.Form("postadress")
tfn1 = Request.Form("tfn1")
tfn2 = Request.Form("tfn2")
epost = Request.Form("epost")
ovrigt = Request.Form("ovrigt")
info = Array(namn,adress,postnr1,postnr2,padress,tfn1,tfn2,epost,ovrigt)
info2 = ""
For i = 0 to 8
info2 = info2 & info(i)
IF Not i = 8 then
info2 = info2 & "|"
END IF
Next
For i = 0 to 7
IF NOT len(info(i)) <> 0 then
Session("webshopfel") = "Du skal udfylde alle felterne"
session("falt") = info2
Response.Redirect Request.ServerVariables("HTTP_REFERER")
END IF
Next
IF len(info(2)) > 5 then
Session("webshopfel") = "Forkert postnummer"
Session("falt") = info2
Response.Redirect Request.ServerVariables("HTTP_REFERER")
END IF
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("172839.mdb")
Session.Lcid = 1053
varde = Request.Cookies(""& Session.SessionID &"")
hamta = Split(varde,"&")
ReDim MyArray(4,Ubound(hamta))
for x = 0 to ubound(hamta)
hamta2 = Split(hamta(x),"=")
IF Len(hamta2(0)) > 0 AND len(hamta2(1)) > 0 then
SQL = "SELECT * FROM produkter WHERE id =" & int(hamta2(0))
Set RecSet = Connect.Execute(SQL)
MyArray(0,x) = hamta2(0)
MyArray(1,x) = hamta2(1)
MyArray(2,x) = RecSet("artnr")
MyArray(3,x) = RecSet("namn")
MyArray(4,x) = RecSet("pris")
RecSet.Close
Set RecSet = nothing
END IF
next
Set jmail = Server.CreateObject("JMail.Message")
jmail.AddRecipient ""& eposten &"", ""& eposten &""
jmail.From = "" & info(7) & ""
jmail.Subject = "Bestilling"
jmail.appendHTML "<font face=verdana size=1>"
For i = 0 To Ubound(myArray,2)
IF Len(MyArray(0,i)) > 0 then
jmail.appendHTML "<b>Produkt nr: </b>" & MyArray(2,i) & "<br>"
jmail.AppendHTML "<b>Produkt: </b>" & MyArray(3,i) & "<br>"
jmail.AppendHTML "<b>Antal: </b>" & MyArray(1,i) & "<br>"
jmail.AppendHTML "-------------------------------------------<br>"
IF i = Ubound(myArray,2) then
jmail.AppendHTML " <br>"
END IF
END IF
Next
jmail.appendHTML "<b>Navn: </b>" & info(0) & "<br>"
jmail.appendHTML "<b>Adresse: </b>" & info(1) & "<br>"
jmail.appendHTML "<b>Postnr: </b>" & info(2) & info(3) & "<br>"
jmail.appendHTML "<b>Postadresse: </b>" & info(4) & "<br>"
jmail.appendHTML "<b>Telefonnummer: </b>" & info(5) & "-" & info(6) & "<br>"
jmail.appendHTML "<b>E-post: </b>" & info(7) & "<br>"
jmail.appendHTML "<b>Övrigt: </b>" & info(8) & "<br>"
jmail.appendHTML "<b>Skickat: </b>" & Now() & "<br>"
jmail.appendHTML "</font>"
jmail.Send(mailserver)
For Each nyckel in Request.Cookies(Session.SessionID)
Response.Cookies(Session.SessionID)(nyckel) = ""
Next
sida = Request.ServerVariables("HTTP_REFERER") & "&skickad=ja"
Response.Redirect sida
%>
Den skriver bare at siden ikke kan vises og der er en HTTP 500 - Intern serverfejl
Den alle andre sider er okay.
Min bestillings form ser sådanne ud:
<form action="order.asp" method="post">
<table width="" border="0" cellpadding="0" cellspacing="1">
<tr>
<td height="15" colspan="2"><strong>Bestillings infomation</strong></td>
</tr>
<%
IF len(Session("webshopfel")) > 0 then
falt = Split(Session("falt"),"|")
fel = 1
ELSE
fel = 0
END IF
%>
<tr>
<td>Dit navn:</td>
<td><%
Response.Write "<input name='namn' type=text style='background: #A2B1C2; border: #85A0B8 1px solid;"
Response.Write " font-family: verdana; font-size: 10px; font-color: #21283D' size=30"
IF fel > 0 then
Response.Write " value='" & falt(0) & "'>"
ELSE
Response.Write ">"
END IF
%></td></tr>
<tr>
<td>Kontakt person:</td>
<td><%
Response.Write "<input name='adress' type=text style='background: #A2B1C2; border: #85A0B8 1px solid;"
Response.Write " font-family: verdana; font-size: 10px; font-color: #21283D' size=30"
IF fel > 0 then
Response.Write " value='" & falt(1) & "'>"
ELSE
Response.Write ">"
END IF
%></td>
</tr>
<tr>
<td>Postnr:</td>
<td>
<%
Response.Write "<input name='postnr1' type=text style='background: #A2B1C2; border: #85A0B8 1px solid;"
Response.Write " font-family: verdana; font-size: 10px; font-color: #21283D' size=3 maxlength=3"
IF fel > 0 then
Response.Write " value='" & falt(2) & "'>"
ELSE
Response.Write ">"
END IF
%>
<%
Response.Write " <input name='postnr2' type=text style='background: #A2B1C2; border: #85A0B8 1px solid;"
Response.Write " font-family: verdana; font-size: 10px; font-color: #21283D' size=2 maxlength=2"
IF fel > 0 then
Response.Write " value='" & falt(3) & "'>"
ELSE
Response.Write ">"
END IF
%>
</td>
</tr>
<tr>
<td>Adresse:</td>
<td><%
Response.Write "<input name='postadress' type=text style='background: #A2B1C2; border: #85A0B8 1px solid;"
Response.Write " font-family: verdana; font-size: 10px; font-color: #21283D' size=30"
IF fel > 0 then
Response.Write " value='" & falt(4) & "'>"
ELSE
Response.Write ">"
END IF
%></td>
</tr>
<tr>
<td>Telefonnr:</td>
<td><%
Response.Write "<input name='tfn1' type=text style='background: #A2B1C2; border: #85A0B8 1px solid;"
Response.Write " font-family: verdana; font-size: 10px; font-color: #21283D' size=5"
IF fel > 0 then
Response.Write " value='" & falt(5) & "'>"
ELSE
Response.Write ">"
END IF
Response.Write " - "
Response.Write "<input name='tfn2' type=text style='background: #A2B1C2; border: #85A0B8 1px solid;"
Response.Write " font-family: verdana; font-size: 10px; font-color: #21283D' size=10"
IF fel > 0 then
Response.Write " value='" & falt(6) & "'>"
ELSE
Response.Write ">"
END IF
%></td>
</tr>
<tr>
<td height="20">E-mail adresse:</td>
<td><%
Response.Write "<input name='epost' type=text style='background: #A2B1C2; border: #85A0B8 1px solid;"
Response.Write " font-family: verdana; font-size: 10px; font-color: #21283D' size=30"
IF fel > 0 then
Response.Write " value='" & falt(7) & "'>"
ELSE
Response.Write ">"
END IF%></td>
</tr>
<tr>
<td>Anden infomation:</td>
<td><%
Response.Write "<input name='ovrigt' type=text style='background: #A2B1C2; border: #85A0B8 1px solid;"
Response.Write " font-family: verdana; font-size: 10px; font-color: #21283D' size=30"
IF fel > 0 then
Response.Write " value='" & falt(8) & "'>"
ELSE
Response.Write ">"
END IF%></td>
</tr>
<tr>
<td colspan="2"><input type="submit" name="Submit2" value="Send bestilling >>" style="background: #85A0B8; border: #85A0B8 1px solid; font-family: verdana; font-size: 10px"></td>
</tr>
<%IF Len(Session("webshopfel")) > 0 then%>
<tr>
<td colspan="2"><%=Session("webshopfel")%></td>
</tr>
<%Session("webshopfel") = ""
ELSEIF Len(Request("skickad")) > 0 then%>
<tr><td><%Response.Write "Din bestilling er sendt"%></td></tr><%END IF%>
</table>
</form>
HJÆLP.....................
