objekt problemer. En svær een
Jeg får følgende fejlmeddelsse, når jeg prøver at sende ordren i Jmail \"Gå til kassen\":document.FrontPage_Form1.bestillingForm er ikke et objekt. og kode 0 index.asp?valg=viskurv&action=checkout&
Håber på hjælp, da jeg nu har siddet i flere dage. Ned stående kode er viskurv.asp, hvor selve
fejlen opstår. Shoppen og fejl kan ses på http://www.blaesbjerg-design.dk.
Hvem kan knække dette problem, der er 200 point til en løsning.
_______________________________
Viskurv.asp:
<!-- #include file=\"shopmenu.inc\" -->
<%
Function Insert()
\' insert the customer info into the right table missing
End Function
%>
<%
Dim koebtotal \'as integer
Sub AddItemToCart(iItemID, iItemCount)
If dictCart.Exists(iItemID) Then
dictCart(iItemID) = dictCart(iItemID) + iItemCount
Else
dictCart.Add iItemID, iItemCount
End If
End Sub
Sub RemoveItemFromCart(iItemID, iItemCount)
If dictCart.Exists(iItemID) Then
If dictCart(iItemID) <= iItemCount Then
dictCart.Remove iItemID
Else
dictCart(iItemID) = dictCart(iItemID) - iItemCount
End If
Else
Response.Write \"Der er ingen varer i din indkøbskurv.<BR><BR>\" & vbCrLf
End If
End Sub
Sub ShowItemsInCart()
Dim Key
Dim aParameters \' as Variant (Array)
Dim sTotal, sShipping
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"/db/items.mdb\")
Conn.Open DSN
\'SQL forespørgsel
strSQL = \"Select * from Fragt\"
\'Udfør forespørgsel (TNr indeholder nu resultatet)
Set Fragt = Conn.Execute(strSQL)
%>
<div id=\"SourceCode\">
<table border=0 width=\"100%\" bgcolor=\"#000000\" cellspacing=\"1\">
<tr align=\"center\">
<td width=\"61\" align=\"left\" bgcolor=\"#FFFFFF\" valign=\"middle\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Nr</font></td>
<td width=\"632\" align=\"left\" bgcolor=\"#FFFFFF\" valign=\"middle\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Beskrivelse</font></td>
<td width=\"84\" align=\"center\" bgcolor=\"#FFFFFF\" valign=\"middle\"><font size=\"2\" face=\"Verdana, Arial, Helvetica, sans-serif\">Antal</font></td>
<td width=\"225\" align=\"center\" bgcolor=\"#FFFFFF\" valign=\"middle\"><font size=\"2\" face=\"Verdana, Arial, Helvetica, sans-serif\">Ændre</font></td>
<td width=\"162\" align=\"left\" bgcolor=\"#FFFFFF\" valign=\"middle\"><font size=\"2\" face=\"Verdana, Arial, Helvetica, sans-serif\"> Pris</font></td>
<td width=\"236\" align=\"left\" bgcolor=\"#FFFFFF\" valign=\"middle\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"> I
alt</font></td>
</tr>
<%
sTotal = 0
For Each Key in dictCart
aParameters = GetItemParameters(Key)
%>
<tr>
<td align=\"left\" width=\"61\" bgcolor=\"#FFFFFF\" valign=\"middle\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"><%= Key %></font></td>
<td align=\"left\" width=\"632\" bgcolor=\"#FFFFFF\" valign=\"middle\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"><%= aParameters(1) %>
</font> </td>
<td align=\"center\" width=\"84\" bgcolor=\"#FFFFFF\" valign=\"middle\"><font size=\"2\" face=\"Verdana, Arial, Helvetica, sans-serif\"><%= dictCart(Key) %></font></td>
<td align=\"center\" width=\"225\" bgcolor=\"#FFFFFF\" valign=\"middle\"><font color=\"#000000\"><a href=\"index.asp?valg=viskurv&action=del&item=<%= Key %>&count=1\"><img border=\"0\" src=\"Images/fjern.gif\" alt=\"Fjern 1 stk. vare\"></a> <a href=\"index.asp?valg=viskurv&action=del&item=<%= Key %>&count=<%= dictCart(Key) %>\"><img border=\"0\" src=\"Images/fjern_alt.gif\" alt=\"Fjern alt\"></a>
<a href=\"index.asp?valg=viskurv&action=add&item=<%= Key %>&count=1\"><img border=\"0\" src=\"Images/tilfoej.gif\" alt=\"Tilføj 1 stk.\"></a></font></td>
<td align=\"left\" width=\"162\" bgcolor=\"#FFFFFF\" valign=\"middle\"><font size=\"2\" face=\"Verdana, Arial, Helvetica, sans-serif\"> Kr.<%= aParameters(2) %></font></td>
<td align=\"left\" width=\"236\" bgcolor=\"#FFFFFF\" valign=\"middle\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"> Kr.<%= FormatNumber(dictCart(Key) * CSng(aParameters(2)),2) %></font></td>
</tr>
<%
sTotal = sTotal + (dictCart(Key) * CSng(aParameters(2)))
Next
\'Beregn fragt
If sTotal <> 0 Then
landkode = Request.ServerVariables(\"HTTP_ACCEPT_LANGUAGE\")
If landkode = \"da\" Then
sShipping = Fragt(\"Indland\")
Else
sShipping = Fragt(\"Udland\")
End If
Else
sShipping = 0
End If
sTotal = sTotal + sShipping
koebtotal = FormatNumber(sTotal,2)
%>
<tr>
<td colspan=5 align=\"Right\" bgcolor=\"#FFFFFF\" valign=\"middle\" width=\"1213\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"><b>Forsendelse:</b></font></td>
<td align=\"left\" width=\"236\" bgcolor=\"#FFFFFF\" valign=\"middle\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"> Kr.<%= FormatNumber(sShipping,2) %></font></td>
</tr>
<tr>
<td colspan=5 align=\"Right\" bgcolor=\"#FFFFFF\" valign=\"middle\" width=\"1213\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"><b>I
alt:</b></font></td>
<td align=\"left\" width=\"236\" bgcolor=\"#FFFFFF\" valign=\"middle\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"> Kr.<%= FormatNumber(sTotal,2) %></font></td>
</tr>
</table>
</div>
<%
\' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
End Sub
\'*******************************************************************
\' I´m gona mail this bugger to the admin i JMail format
\' 6/2 - 2001 by design@jagt-hunden.dk
\'*******************************************************************
Private sub SendMailToAdmin()
on error resume next
strMailBody = strMailBody & \"<html><body bgcolor=\'#FFFFED\'>\"
strMailBody = strMailBody & \"<h2><font color=\'#999999\'>Ordre bestilling</font></h2>\"
strMailBody = strMailBody & \"<p><font color=\'#999999\'><pre>\"
strMailBody = strMailBody & \" <b>OrdreNr:</b> \" & Request.Form (\"fldOrdrenr\") & chr(10) & \"<br>\"
strMailBody = strMailBody & \" <b>Navn:</b> \" & Request.Form (\"fldName\") & \"<br>\"
strMailBody = strMailBody & \" <b>Evt. firmanavn:</b> \" & Request.Form (\"fldCompanyName\") & chr(10)
strMailBody = strMailBody & \" <b>E-mail Adresse:</b> \" & Request.Form (\"fldEmail\") & chr(10)
strMailBody = strMailBody & \" <b>Adresse:</b> \" & Request.Form (\"fldURL\") & chr(10)
strMailBody = strMailBody & \" <b>Postnr./By:</b> \" & Request.Form (\"fldAreaCode\") & \" \" & Request.Form (\"fldCity\") & chr(10)
strMailBody = strMailBody & \" <b>Tlf.:</b> \" & Request.Form (\"fldFax\") & chr(10)
strMailBody = strMailBody & Request.Form (\"bestillingForm\")\'ShowItemsInCart
strMailBody = strMailBody & \"</pre>\" & chr(10)
strMailBody = strMailBody & \"</font></p>\"
strMailBody = strMailBody & \"</body></html>\"
Set objMail = server.CreateObject(\"JMail.SMTPMail\")
objMail.ContentType = \"text/html\"
\' ## MAILPROG OPSÆTNING
objMail.ServerAddress = \"mail.andersenit.dk\"
objMail.Sender = \"butik@blaesbjerg-design.dk\"
objMail.ReplyTo = \"butik@blaesbjerg-design.dk\"
objMail.Sendername = \"E-shoppen\"
objMail.subject = \"Ny Ordre fra shoppen\"
\' ## MODTAGER PÅ EMALEN
objMail.AddRecipient(\"butik@blaesbjerg-design.dk\")
objMail.body = strMailBody
objMail.Priority = 1
\' ## SENDER
objMail.Execute
Set objMail = nothing
\'If err.Number < 0 Then
\' Response.Redirect(\"index.asp?valg=fejlemail\")
\'End If
ShowItemsInCart
%>
<font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"><b> </b></font>
<table border=\"0\" width=\"100%\" bgcolor=\"#000000\" cellspacing=\"1\">
<tr>
<td width=\"100%\" bgcolor=\"#FFFFFF\">
<font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"><b>Adresse oplysninger</b></font><br>
<hr size=\"1\">
</td>
</tr>
</table>
<table width=\"100%\" border=\"0\" cellpadding=\"2\" cellspacing=\"1\" bgcolor=\"#000000\">
<tr>
<td width=\"584\" align=\"left\" valign=\"top\" bgcolor=\"#FFFFFF\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Navn</font></b>
<br><% Response.Write Request.Form (\"fldName\") %>
</td>
</tr>
<% If Request.Form (\"fldCompanyName\") <> \"\" Then %><tr>
<td width=\"584\" align=\"left\" valign=\"top\" bgcolor=\"#FFFFFF\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Firmanavn</font></b> <br>
<% Response.Write Request.Form (\"fldCompanyName\") %>
</td>
</tr>
<%End If%>
<tr>
<td width=\"584\" align=\"left\" valign=\"top\" bgcolor=\"#FFFFFF\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">E-mail
Adresse</font></b> <br><% Response.Write Request.Form (\"fldEmail\") %>
</td>
</tr>
<tr>
<td width=\"584\" align=\"left\" valign=\"top\" bgcolor=\"#FFFFFF\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Adresse</font></b>
<br><% Response.Write Request.Form (\"fldURL\") %>
</td>
</tr>
<tr>
<td width=\"584\" bgcolor=\"#FFFFFF\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Postnr./By</font></b>
<br>
<% Response.Write Request.Form (\"fldAreaCode\") %> <% Response.Write Request.Form (\"fldCity\") %>
</td>
</tr>
<% If Request.Form (\"fldFax\") <> \"\" Then %>
<tr>
<td width=\"584\" bgcolor=\"#FFFFFF\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Tlf.</font></b>
<br>
<% Response.Write Request.Form (\"fldFax\") %>
</td>
</tr>
<%End If%>
<tr>
<td width=\"100%\" bgcolor=\"#FFFFFF\" height=\"15\">
</td>
</tr>
<tr>
<td width=\"100%\" bgcolor=\"#FFFFFF\">
<font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"><b>Kreditkort oplysninger</b></font><br>
<hr size=\"1\">
</td>
</tr>
<tr>
<td width=\"584\" bgcolor=\"#FFFFFF\">
<FORM action=https://pay.freeway.dk/secure/capture.asp id=form1
<INPUT name=DeclineURL type=hidden value=http://www.blaesbjerg-design.dk/index.asp?valg=decline>
<INPUT name=AcceptURL type=hidden value=http://www.blaesbjerg-design.dk/index.asp?valg=accept>
<TABLE width=\"413\" cellspacing=\"1\" cellpadding=\"2\">
<TBODY>
<TR>
<TD width=\"164\" valign=\"middle\" align=\"left\" colspan=\"2\"></TD>
<TD width=\"235\" valign=\"middle\" align=\"left\">
<INPUT name=Merchant size=\"20\" type=hidden value=\"400\"></TD></TR>
<TR>
<TD width=\"164\" valign=\"middle\" align=\"left\" colspan=\"2\"></TD>
<TD width=\"235\" valign=\"middle\" align=\"left\">
<INPUT name=Currency type=hidden size=3 value=208></TD></TR>
<tr>
<TD valign=middle width=\"164\" align=\"left\" colspan=\"2\">Ordrenummer</TD>
<TD width=\"235\" valign=\"middle\" align=\"left\">
<INPUT name=OrderNumber value=\" <% Response.Write Request.Form (\"fldOrdrenr\") %>\" size=\"4\" class=\"Flatbox\">
</TD>
</tr>
<TR>
<TD width=\"164\" valign=\"middle\" align=\"left\" colspan=\"2\">Beløb i kr.</TD>
<TD width=\"235\" valign=\"middle\" align=\"left\">
<INPUT name=Amount value=\" <%= koebtotal %> Dkk incl. moms\" size=\"20\" class=\"flatbox\"></TD></TR>
<TR>
<TD width=\"164\" valign=\"middle\" align=\"left\" colspan=\"2\">Kortnummer *</TD>
<TD width=\"235\" valign=\"middle\" align=\"left\">
<INPUT name=CardNumber size=\"20\"></TD></TR>
<TR>
<TD width=\"164\" valign=\"middle\" align=\"left\" colspan=\"2\">Udløbsdato
(MM/ÅÅ) *</TD>
<TD width=\"235\" valign=\"middle\" align=\"left\">
<INPUT name=ExpireMonth size=1 maxlength=\"2\"> / <INPUT name=ExpireYear size=1 maxlength=\"2\">
</TD>
</TR>
<tr>
<TD valign=middle width=\"83\" align=\"left\" nowrap></TD>
<TD valign=middle width=\"81\" align=\"left\" nowrap></TD>
<TD width=\"229\" valign=\"middle\" align=\"left\">
<input type=\"reset\" value=\"Slet\" name=\"slet\" class=\"FlatButton\">
<a onclick=\"<% Insert() %>\"><input type=\"submit\" value=\"2 Af 3 >>\" name=\"submit\" class=\"FlatButton\">
</TD>
</tr>
</TBODY></TABLE></FORM>
</td>
</tr>
<tr>
<td width=\"584\" bgcolor=\"#FFFFFF\">* Skal udfyldes</td>
</tr>
<tr>
<td width=\"584\" bgcolor=\"#FFFFFF\">Det anbefales at udskrive denne side, da den indeholder alle oplysninger om købet og skal bruges ved reklamation.
kontakt <a href=\"mailto:butik@blaesbjerg-design.dk\" style=\"color: #000000; font-style: italic\">butik@blaesbjerg-design.dk</a> ellers læs
<a href=\"index.asp?valg=koebinfo\" style=\"color: #000000; font-style: italic; font-weight: bold\">Salgs- og leveringsbetingelser</a>
</td>
</tr>
<tr align=\"left\" valign=\"top\">
<td width=\"584\" bgcolor=\"#FFFFFF\" height=\"25\">
</td>
</tr>
<tr align=\"left\" valign=\"top\">
<td width=\"584\" bgcolor=\"#FFFFFF\">
<div align=\"center\">
<center>
<table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td width=\"30%\" valign=\"middle\" nowrap><font size=\"1\">Denne
butik anvender PayByWeb fra</font></td>
<td width=\"27%\" valign=\"middle\" nowrap><font size=\"1\"><a href=\"http://www.freepay.dk/\" target=\"_blank\"><img border=\"0\" src=\"Images/freepay.gif\"></a></font></td>
<td width=\"43%\" valign=\"middle\" nowrap><font size=\"1\"> </font></td>
</tr>
<tr>
<td width=\"57%\" valign=\"middle\" colspan=\"2\" nowrap><font size=\"1\">Betalingen med kreditkort i denne butik er derfor sikker og godkendt af </font></td>
<td width=\"43%\" valign=\"middle\" nowrap><a href=\"http://www.pbs.dk/\" target=\"_blank\"><img border=\"0\" src=\"Images/lillepbs.gif\"></a></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
</table>
<%
End Sub
%>
<table width=\"100%\" border=\"0\" cellpadding=\"2\">
<tr>
<td width=\"600\" align=\"left\" valign=\"top\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">
<%
\'Åben databasen
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Set Rs = Server.CreateObject(\"ADODB.Recordset\")
\'Modify and use this connection if your database is in your database directory
\'Conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=D:\\your database directory\\items.mdb\"
Conn.Open \"DBQ=\" & Server.Mappath(\"/db/items.mdb\") & \";Driver={Microsoft Access Driver (*.mdb)};\"
SQL = \"SELECT Name, Price, ImageURL FROM Items\"
rs.Open SQL, Conn
rs.MoveFirst
Function GetItemParameters(iItemID)
\'Open database
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Set Rs = Server.CreateObject(\"ADODB.Recordset\")
\'Modify and use this connection if your database is in your database directory
\'Conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=D:\\your database directory\\items.mdb\"
Conn.Open \"DBQ=\" & Server.Mappath(\"/db/items.mdb\") & \";Driver={Microsoft Access Driver (*.mdb)};\"
SQL = \"SELECT* FROM Items WHERE ProductNum like \'%\" & iItemID & \"%\'\"
rs.Open SQL, Conn
rs.MoveFirst
Dim aParameters
aParameters = Array(rs(\"ImageURL\"), rs(\"Name\"), rs(\"Price\"))
\' Return array containing product info.
GetItemParameters = aParameters
End Function
%>
<%
Dim dictCart \' as dictionary
Dim sAction \' as string
Dim iItemID \' as integer
Dim iItemCount \' as integer
If IsObject(Session(\"cart\")) Then
Set dictCart = Session(\"cart\")
Else
Set dictCart = Server.CreateObject(\"Scripting.Dictionary\")
End If
sAction = CStr(Request.QueryString(\"action\"))
iItemID = CInt(Request.QueryString(\"item\"))
iItemCount = CInt(Request.QueryString(\"count\"))
%>
<table border=0 cellpadding=2 width=\"100%\">
<%
Select Case sAction
Case \"add\"
AddItemToCart iItemID, iItemCount
ShowItemsInCart
%>
<tr>
<td align=\"right\"> <a href=\"index.asp?valg=vare\"><img border=\"0\" src=\"Images/videre.gif\" alt=\"handel videre\"></a>
<a href=\"index.asp?valg=viskurv&action=checkout&#checkout\"><img border=\"0\" src=\"Images/koebnu.gif\" alt=\"Gå til kassen\"></a><br>
</td>
</tr>
<% Case \"vis\"
ShowItemsInCart
%>
<tr>
<td align=\"right\"> <a href=\"index.asp?valg=vare\"><img border=\"0\" src=\"Images/videre.gif\" alt=\"handel videre\"></a>
<a href=\"index.asp?valg=viskurv&action=checkout&#checkout\"><img border=\"0\" src=\"Images/koebnu.gif\" alt=\"Gå til kassen\"></a><br>
</td>
</tr>
<%
Case \"del\"
RemoveItemFromCart iItemID, iItemCount
ShowItemsInCart
%>
<tr>
<td align=\"right\"> <a href=\"index.asp?valg=vare\"><img border=\"0\" src=\"Images/videre.gif\" alt=\"handel videre\"></a>
<a href=\"index.asp?valg=viskurv&action=checkout&#checkout\"><img border=\"0\" src=\"Images/koebnu.gif\" alt=\"Gå til kassen\"></a><br>
</td>
</tr>
<%
Case \"viewcart\"
ShowItemsInCart
%>
<tr>
<td align=\"right\"> <a href=\"index.asp?valg=vare\"><img border=\"0\" src=\"Images/videre.gif\" alt=\"handel videre\"></a>
<a href=\"index.asp?valg=viskurv&action=checkout&#checkout\"><img border=\"0\" src=\"Images/koebnu.gif\" alt=\"Gå til kassen\"></a><br>
</td>
</tr>
<%
case \"checkout\"
ShowItemsInCart
%>
<tr>
<td align=\"right\">
<br>
<br>
<a name=\"checkout\"></a>
<!-- #include file=\"check.inc\" -->
<form action=\"index.asp?valg=viskurv&action=send\" method=\"post\" name=\"FrontPage_Form2\" onsubmit=\"return FrontPage_Form2_Validator(this)\">
<font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">
<input type=\"Hidden\" name=\"bestillingForm\" value=\"\">
<script> document.FrontPage_Form1.bestillingForm.value = document.getElementById(\"SourceCode\").innerHTML;</script>
<font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\" color=\"FFFFFF\"><b> Skriv
venligst dine adresse oplysninger</b></font><br>
<hr size=\"1\">
<table width=\"100%\" border=\"0\" cellpadding=\"2\" cellspacing=\"1\" bgcolor=\"#000000\">
<% \'Databaseforbindelse
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"/db/items.mdb\")
Conn.Open DSN
\'SQL forespørgsel
strSQL = \"Select * from GetOrdreNr\"
\'Udfør forespørgsel (TNr indeholder nu resultatet)
Set TNr = Conn.Execute(strSQL)
Dim TempNr \'as Real
IF NOT session(\"ordre\") then
TempNr = TNr(\"Nr\")+1
strSQL = \"Update GetOrdreNr set Nr = \'\" & TempNr & \"\'\"
Conn.execute(strSQL)
session(\"ordre\") = true
ELSE
TempNr = TNr(\"Nr\")
END IF
%>
<input name=\"fldOrdrenr\" size=\"15\" value=\"<% =TempNr %>\" type=hidden>
<% \' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing %>
<tr>
<td width=\"584\" align=\"left\" valign=\"top\" bgcolor=\"#FFFFFF\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Navn</font></b>
<br>
<!--webbot bot=\"Validation\" S-Display-Name=\"Navn\"
B-Value-Required=\"TRUE\" I-Minimum-Length=\"2\"
I-Maximum-Length=\"100\" -->
<input type=\"text\" name=\"fldName\" size=\"40\" maxlength=\"100\">
</td>
</tr>
<tr>
<td width=\"584\" align=\"left\" valign=\"top\" bgcolor=\"#FFFFFF\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Evt.
firmanavn</font></b> <br>
<input type=\"text\" name=\"fldCompanyName\" size=\"40\">
</td>
</tr>
<tr>
<td width=\"584\" align=\"left\" valign=\"top\" bgcolor=\"#FFFFFF\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">E-mail
Adresse</font></b> <br>
<!--webbot bot=\"Validation\" S-Display-Name=\"Email\"
B-Value-Required=\"TRUE\" I-Minimum-Length=\"4\"
I-Maximum-Length=\"100\" -->
<input type=\"text\" name=\"fldEmail\" size=\"40\" maxlength=\"100\">
</td>
</tr>
<tr>
<td width=\"584\" align=\"left\" valign=\"top\" bgcolor=\"#FFFFFF\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Adresse</font></b>
<br>
<!--webbot bot=\"Validation\" S-Display-Name=\"Adresse\"
B-Value-Required=\"TRUE\" I-Minimum-Length=\"5\"
I-Maximum-Length=\"100\" -->
<input type=\"text\" name=\"fldURL\" size=\"40\" maxlength=\"100\">
</td>
</tr>
<tr align=\"left\" valign=\"top\" bgcolor=\"#FFFFFF\">
<td width=\"584\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Postnr./By</font></b>
<br>
<!--webbot bot=\"Validation\" S-Display-Name=\"Postnr\"
S-Data-Type=\"Integer\" S-Number-Separators=\"x\"
B-Value-Required=\"TRUE\" I-Minimum-Length=\"4\"
I-Maximum-Length=\"4\" -->
<input type=\"text\" name=\"fldAreaCode\" size=\"4\" maxlength=\"4\">
<!--webbot bot=\"Validation\" S-Display-Name=\"By\"
B-Value-Required=\"TRUE\" I-Minimum-Length=\"1\"
I-Maximum-Length=\"50\" -->
<input type=\"text\" name=\"fldCity\" size=\"34\" maxlength=\"50\">
</td>
</tr>
<tr align=\"left\" valign=\"top\" bgcolor=\"#FFFFFF\">
<td width=\"584\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Tlf.</font></b>
<br>
<!--webbot bot=\"Validation\"
S-Display-Name=\"Telefon nummer\"
B-Value-Required=\"TRUE\" I-Minimum-Length=\"8\"
I-Maximum-Length=\"15\" -->
<input type=\"text\" name=\"fldFax\" size=\"11\">
</td>
</tr>
<tr align=\"left\" valign=\"top\" bgcolor=\"#FFFFFF\">
<td width=\"584\">
<p><br>
<input type=\"reset\" name=\"Clear\" value=\"Slet\" class=\"FlatButton\">
<input type=\"submit\" name=\"Submit\" value=\"1 Af 3 >>\" class=\"FlatButton\">
</p>
</td>
</tr>
</form>
</table>
</td>
</tr>
<%
case \"send\"
SendMailToAdmin
Case Else \' Shop
%>
</table>
<%
End Select
Set Session(\"cart\") = dictCart
%>
</table>
