Hvorfor gemmes værdi fra hidden field ikke i database?
HejJeg har en html side hvor en bruger indtaster antal varer og navn og adresse. Navnet på vareren ligger som et hidden field, men bliver af en eller anden grund ikke ført med over til min asp side som gemmer oplysningerne i DB og sender e-mail.
Hvad gør jeg forkert???
--------
Min html side:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<Link Rel="stylesheet" href="letbackup.css" Type="text/css" >
<title>LetBackup</title>
<STYLE TYPE="text/css">
BODY{
background-attachment: fixed;
background-image: url(gfx/bg_sider.gif);
background-repeat: no-repeat;
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
</style>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="LetBackup.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function MM_validateForm() { //v4.0
var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;
for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]);
if (val) { nm=val.name; if ((val=val.value)!="") {
if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
if (p<1 || p==(val.length-1)) errors+='- '+nm+' skal indeholde en e-mail adresse.\n';
} else if (test!='R') { num = parseFloat(val);
if (isNaN(val)) errors+='- '+nm+' skal indeholde tal.\n';
if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
min=test.substring(8,p); max=test.substring(p+1);
if (num<min || max<num) errors+='- '+nm+' skal indeholde tal mellem '+min+' and '+max+'.\n';
} } } else if (test.charAt(0) == 'R') errors += '- '+nm+' skal indtastes.\n'; }
} if (errors) alert('Følgende fejl fundet:\n'+errors);
document.MM_returnValue = (errors == '');
}
//-->
</script>
<style type="text/css">
<!--
.style1 {
color: #263572;
font-weight: bold;
}
.style2 {color: #DBEBF3}
-->
</style>
</head>
<body>
<table width="640" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="2"> </td>
<td valign="top" class="Datronic"> <p> <br>
Køb LetBackup CD version + CD brænder<strong></strong></p>
<form action="checkout.asp" method="POST" name="bestilform">
<table border="0">
<tr class="Datronic">
<td height="19" colspan="3"><strong>Jeg ønsker at købe: (skriv antal)</strong></td>
</tr>
<tr class="Datronic">
<td height="20" colspan="3" valign="middle"><table width="630" border="0" cellspacing="0">
<tr>
<td width="54"><img src="gfx/letbackup_b.jpg" width="52" height="48"></td>
<td width="662">·
<input name="vare1Antal" type="text" id="vare1Antal" value="1" size="2" maxlength="11">
· LetBackup v. 1.10 + CD brænder .....kr. <span class="style1">???</span>,-
<input type="hidden" name="letbackup1" id="vare1" value="Letbackup v. 1.10 + CD Brænder">
</td>
</tr>
<tr>
<td><img src="gfx/cd.jpg" width="52" height="48"></td>
<td>·
<input name="vare2Antal" type="text" id="vare2Antal" value="0" size="2" maxlength="11">
<input type="hidden" name="letbackup2" id="vare2" value="100 CD-R medier">
· 100 CD-R medier .....kr. <span class="style1">???</span>,- </td>
</tr>
<tr>
<td><img src="gfx/cd.jpg" width="52" height="48"></td>
<td>·
<input name="vare3Antal" type="text" id="vare3Antal" value="0" size="2" maxlength="11">
<input type="hidden" name="letbackup3" id="vare3" value="10 CD-R/RW medier">
· 10 CD-R/RW medier .....kr. <span class="style1">???</span>,-</td>
</tr>
</table>
</td>
</tr>
<tr class="Datronic">
<td height="19" colspan="3">Alle priser er inkl. moms.</td>
</tr>
<tr class="Datronic">
<td> </td>
<td width="469"> </td>
<td> </td>
</tr>
<tr class="Datronic">
<td colspan="2"><p>Kundeoplysninger</p></td>
<td width="59"> </td>
</tr>
<tr class="Datronic">
<td>Navn</td>
<td colspan="2"> <input name="Navn" type="text" id="Navn" size="40">
*</td>
</tr>
<tr class="Datronic">
<td width="92"> Adresse</td>
<td colspan="2"> <input name="Adr" type="text" id="Adr" size="40">
* </td>
</tr>
<tr class="Datronic">
<td>Postnr.</td>
<td colspan="2"> <input name="post" type="text" id="post" size="40" maxlength="4">
*</td>
</tr>
<tr class="Datronic">
<td>By</td>
<td colspan="2"> <input name="byen" type="text" id="byen" size="40">
* </td>
</tr>
<tr class="Datronic">
<td>Tlf.:</td>
<td colspan="2"> <input name="tlf" type="text" id="tlf" size="40" maxlength="8">
*</td>
</tr>
<tr class="Datronic">
<td height="24">e-mail: </td>
<td colspan="2"> <input name="email" type="text" id="email" size="40">
* </td>
</tr>
<tr class="Datronic">
<td height="19" colspan="3"> </td>
</tr>
<tr class="Datronic">
<td height="19" colspan="3"><p>Betaling og forsendelsesmuligheder:</p></td>
</tr>
<tr class="Datronic">
<td height="19" colspan="3"> <input type="radio" name="Forsendelse" value="Postopkrævning">
· Betales som postopkrævning (tillægges 120,-
kr. + 10,- kr. til postbudet).</td>
</tr>
<tr class="Datronic">
<td height="24" colspan="3"><input name="Forsendelse" type="radio" value="Betales via bank - Indbetal på Sydbank konto 7120-1110666" checked>
· Betales forud via bank på Sydbank konto 7120-1110666 <br>
Pakken sendes, når beløbet
er modtaget på vores bankkonto (gratis forsendelse).<br>
Du bliver orienteret via e-mail,
når vi sender pakken.</td>
</tr>
<tr class="Datronic">
<td height="19" colspan="3"> <input type="radio" name="Forsendelse" value="Afhentes og betales i butikken">
· Afhentes i butikken på Marselis Boulevard 175, 8000
Århus C.</td>
</tr>
<tr class="Datronic">
<td height="19" colspan="3"> </td>
</tr>
<tr class="Datronic">
<td height="19" colspan="3"><p>Informationer og tilbud:</p></td>
</tr>
<tr class="Datronic">
<td height="21" colspan="3"> <p>
<input name="Info pa mail" type="checkbox" id="Info pa mail" value="Jeg ønsker at modtage tilbud og informationer fra Datronic ApS på min e-mail." checked>
· Jeg ønsker at modtage tilbud og informationer
fra Datronic ApS på min e-mail.</p></td>
</tr>
</table>
<p>
<input name="Submit" type="submit" onClick="MM_validateForm('Navn','','R','Adr','','R','post','','RisNum','byen','','R','tlf','','RisNum','email','','RisEmail');return document.MM_returnValue" value="Send Bestilling">
</p>
</form>
</td>
</tr>
</table>
</body>
</html>
--------
Min asp side:
<%@ Language=VBScript %>
<!--#include file="dbconn.inc"--><!-- Database forbindelse oprettes via ekstern fil-->
<%
dim rsOrder
dim rsItem
%>
<%
'If Request.Form("vare1Antal")<>"" And Request.Form("vare1")<>"" And Request.Form("vare2Antal")<>"" And Request.Form("vare2")<>"" And Request.Form("vare3Antal")<>"" And Request.Form("vare3")<>"" And Request.Form("navn")<>"" And Request.Form("adr")<>"" And Request.Form("post")<>"" And Request.Form("byen")<>"" And Request.Form("tlf")<>"" And Request.Form("forsendelse")<>""Then
strVare1Antal = Replace(Request.Form("vare1Antal"), "'", "''")
strVare1 = Replace(Request.Form("vare1"), "'", "''")
strVare2Antal = Replace(Request.Form("vare2Antal"), "'", "''")
strVare2 = Replace(Request.Form("vare2"), "'", "''")
strVare3Antal = Replace(Request.Form("vare3Antal"), "'", "''")
strVare3 = Replace(Request.Form("vare3"), "'", "''")
strNavn = Replace(Request.Form("navn"), vbcrlf, "<br>")
strNavn = Replace(strNavn, "'", "''")
strAdr = Replace(Request.Form("adr"), "'", "''")
strPost = Replace(Request.Form("post"), "'", "''")
strByen = Replace(Request.Form("byen"), "'", "''")
strTlf = Replace(Request.Form("tlf"), "'", "''")
strEmail = Replace(Request.Form("email"), "'", "''")
strForsendelse = Replace(Request.Form("forsendelse"), "'", "''")
strSQL = "Insert into ordre ("
strSQL = strSQL & "vare1Antal, "
strSQL = strSQL & "vare1, "
strSQL = strSQL & "vare2Antal, "
strSQL = strSQL & "vare2, "
strSQL = strSQL & "vare3Antal, "
strSQL = strSQL & "vare3, "
strSQL = strSQL & "navn, "
strSQL = strSQL & "adr, "
strSQL = strSQL & "post, "
strSQL = strSQL & "byen, "
strSQL = strSQL & "tlf, "
strSQL = strSQL & "email, "
strSQL = strSQL & "forsendelse) "
strSQL = strSQL & "values("
strSQL = strSQL & "'" & strVare1Antal & "', "
strSQL = strSQL & "'" & strVare1 & "', "
strSQL = strSQL & "'" & strVare2Antal & "', "
strSQL = strSQL & "'" & strVare2 & "', "
strSQL = strSQL & "'" & strVare3Antal & "', "
strSQL = strSQL & "'" & strVare3 & "', "
strSQL = strSQL & "'" & strNavn & "', "
strSQL = strSQL & "'" & strAdr & "', "
strSQL = strSQL & "'" & strPost & "', "
strSQL = strSQL & "'" & strByen & "', "
strSQL = strSQL & "'" & strTlf & "', "
strSQL = strSQL & "'" & strEmail & "', "
strSQL = strSQL & "'" & strForsendelse & "') "
Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
'Response.Redirect ("service_admin.asp")
%>
<%
'End if
%>
<%
'MAIL TIL KUNDE
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.CharSet = 1
Mailer.FromName = "Datronic NetButik" 'Afsender navn
Mailer.FromAddress = "noreply@Datronic.dk" 'Afsender e-mail
Mailer.RemoteHost = "mail.datronic.dk" 'afsender mail
Mailer.AddRecipient request("navn"), request("email") ' Kunde navn og e-mail (hvor mailen sendes til)
Mailer.AddBCC "Datronic ApS", "afa@datronic.dk" 'e-mail som kopi af mailen sendes til (butikkens mail)
Mailer.Subject = "Din ordre hos Datronic Aps - ordrebekræftelse" 'Emne i mail
tekst = ""
linie = vbCrLf
if request("navn") <> "" then 'hvis fornavn ikke er blak udskrives teksten hej navn
tekst = tekst & "<font face='verdana' size='2'><b>Hej " & request("navn") & linie & linie
end if
tekst = tekst & "</font></b><br><font face='verdana' size='1' color='black'>Bemærk! Du kan ikke besvare denne mail.</font>" & linie & linie
tekst = tekst & "<br><br><font face='verdana' size='2'>Tak! Fordi du handlede hos Datronic ApS<br>"& linie & linie
tekst = tekst & "Følgende ordre er blevet modtaget:</font>" & linie & linie
tekst = tekst & "<br><br><font face='verdana' size='1'><strong>Ordrenr: </strong>" & request("intOrderID") & linie & linie & linie & linie 'ordrenr udskrives
tekst = tekst & "<br><br><strong>Kundeoplysninger: </strong>" & linie & linie & linie & linie
tekst = tekst & "<br>" & request("navn") & linie & linie & linie & linie 'fornavn og efternavn på kunde udskrives
tekst = tekst & "<br>" & request("adr") & linie & linie & linie & linie ' kundeadresse
tekst = tekst & "<br>" & request("post") & " " & request("byen") & linie & linie & linie & linie 'postnr og by
tekst = tekst & "<br>Tlf.: " & request("tlf") & linie & linie & linie & linie 'kundens telefonnummer
tekst = tekst & "<br><br><strong>E-mail: </strong>" & linie & linie & linie & linie
tekst = tekst & "<br>" & request("email")& linie & linie 'kunde e-mail
tekst = tekst & "<br><br><strong>Betalingsform: </strong>" & linie & linie & linie & linie
tekst = tekst & "<br>" & request("forsendelse")& linie & linie 'den valgt betalingsform
tekst = tekst & "<br>" & request("vare1Antal")& linie & linie 'den valgt betalingsform
tekst = tekst & "<br>" & request("vare1")& linie & linie 'den valgt betalingsform
tekst = tekst & "<br><br><font face='verdana' size='1'><strong>Ordreindhold: </strong></font>" & linie & linie & linie & linie
tekst = tekst & "<table width='470'><tr>"
tekst = tekst & "<td width='13%'><font face='Verdana' size='1'>Antal</font></td>"
tekst = tekst & "<td width='13%'><font face='Verdana' size='1'>Vare ID</font></td>"
tekst = tekst & "<td width='44%'><font face='Verdana' size='1'>Vare</font></td>"
tekst = tekst & "<td width='15%' align='right'><font face='Verdana' size='1'>Pris pr stk</font></td>"
tekst = tekst & "<td width='15%' align='right'><font face='Verdana' size='1'>Pris i alt</font></td>"
'arrId = Split(request.form("intProdID"), ",")
'arrPris = Split(request.form("intPrice"), ", ")
'arrQuant = Split(request.form("intQuant"), ",")
'arrstrProdName = Split(request.form("strProdName"), ", ")
'arrintExtPrice = Split(request.form("intExtPrice"), ", ")
'for i=0 to ubound(arrId)
'tekst = tekst & "<tr>"
'tekst = tekst & "<td width='13%' align='left' valign='middle' nowrap><font face='Verdana' size='1'>" & arrQuant(i) & "<br></font></td>"
'tekst = tekst & "<td width='13%' align='left' valign='middle' nowrap><font face='Verdana' size='1'>" & arrId(i) & "<br></font></td>"
'tekst = tekst & "<td width='44%' align='left' valign='middle' nowrap><font face='Verdana' size='1'>" & arrstrProdName(i) & "<br></font></td>"
'tekst = tekst & "<td width='15%' align='right' valign='middle' nowrap><font face='Verdana' size='1'>" & arrPris(i) & "<br></font></td>"
'tekst = tekst & "<td width='15%' align='right' valign='middle' nowrap><font face='Verdana' size='1'>" & arrintExtPrice(i) & "<br></font></td>"
'tekst = tekst & "</tr>"
' next
'tekst = tekst & "<tr><td colspan='4'><font face='Verdana' size='1'>Forsendelse</font></td>"
'tekst = tekst & "<td align='right'><font face='Verdana' size='1'><strong>" & request("intShipping") & "</strong></font></td></tr>"
'tekst = tekst & "<tr><td colspan='4'><font face='Verdana' size='1'>Kr. total i alt</font></td>"
'tekst = tekst & "<td align='right'><font face='Verdana' size='1'><strong>" & request("intTotal") & "</strong></font></td></tr></table>"
tekst = tekst & "<br><br><font face='verdana' size='2'>Med venlig hilsen"& linie & lilie & linie & linie
tekst = tekst & "<br>Datronic ApS / NetButik</font>"& linie & linie & lilie
tekst = tekst & "<br><font face='verdana' size='1'>Har du spørgsmål eller er der fejl vedr. din ordre, kontakt da venligst Datronic ApS på <a href='mailto:salg@datronic.dk.dk'><font color=black>salg@datronic.dk</font></a></font>"& linie & linie & linie
'tekst = tekst & "<br><br><font color=green>GLÆDELIG JUL</font> <font color=red>&</font> <font color=green>GODT NYTÅR </font>" 'tekst som kan sættes på ved specielle lejligheder fx. jul, ferie
Mailer.BodyText = tekst
Mailer.ContentType = "text/html"
Mailer.SendMail
'End If
'End If
'rsOrder.Close
'set rsOrder = Nothing
'rsItem.Close
'set rsItem = Nothing
'Conn.Close
'set Conn = Nothing
%>
<html>
<head>
<title>Tak for din bestilling</title>
<Link Rel="stylesheet" href="letbackup.css" Type="text/css" > <!-- link til ekstern style sheet -->
<style type="text/css">
<!--
body {
margin-top: 0px;
margin-left: 4px;
background-image: url(gfx/bg_sider.gif);
}
-->
</style>
<style type="text/css">
<!--
.style1 {color: #FFFFFF}
.style3 {color: #263572}
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>
<body>
<!--følgende tekst udskrives når ordren er blevet gemt i databasen og mail er sendt til kunde+butik-->
<table width="650" border="0" cellspacing="0">
<tr>
<td colspan="3"><p> </p></td>
</tr>
<tr>
<td width="440"><p>Tak for din bestilling! </p></td>
<td> </td>
<td width="440" valign="top"><br>
<br> </td>
</tr>
<tr>
<td width="440"> </td>
<td> </td>
<td width="440" valign="top"> </td>
</tr>
<tr>
<td width="440">Din ordre er blevet afsendt.<br>
<!-- ordreid udskrives, så kunden kan se ordrenr/ordreid-->
Du vil om kort tid modtage en e-mail med oplysninger omkring din ordre.</td>
<td> </td>
<td width="440" valign="top"> </td>
</tr>
<tr>
<td width="440"> </td>
<td> </td>
<td width="440" valign="top"> </td>
</tr>
<tr>
<td width="440" valign="top">Har du spørgsmål vedr. din ordre kontakt salg på <a href="mailto:salg@datronic.dk">salg@datronic.dk</a></td>
<td> </td>
<td width="440" valign="top"> </td>
</tr>
<tr>
<td width="440" valign="top"> </td>
<td> </td>
<td width="440" valign="top"> </td>
</tr>
<tr>
<td width="440" valign="top"> </td>
<td> </td>
<td width="440" valign="top"> </td>
</tr>
<tr>
<td colspan="3" valign="top"><span class="style3">Tak fordi du handlede hos Datronic ApS</span></td>
</tr>
<tr>
<td width="440"> </td>
<td> </td>
<td width="440" valign="top"> </td>
</tr>
</table>
<p> </p>
</body>
</html>
Håber nogen kan hjælpe mig, da jeg efterhånden har kigget på det samme problem i flere timer (hvilket er ret træls ;O) ).
/Annette
