Formen vil ikke submitte.... hvem kan se fejlen.....????
Har vist stirret mig blind på koden..... Der sker intet, når jeg trykker submit..... Hvad er der galt????Sub produktinfo(id)
strConnection = DBConnect
Set DBConnection = Server.CreateObject("ADODB.Connection")
DBConnection.Open strConnection
Set RS1 = Server.CreateObject("ADODB.RecordSet")
SQL1 = "SELECT * FROM varer WHERE varenr='" & id & "'"
RS1.CursorLocation = 3
RS1.Open SQL1, DBConnect, 1
Set RS2 = Server.CreateObject("ADODB.RecordSet")
SQL2 = "SELECT * FROM varegrupper WHERE id=" & RS1("gruppe")
RS2.Open SQL2, DBConnect, 1
Set RS3 = Server.CreateObject("ADODB.RecordSet")
SQL3 = "SELECT * FROM hovedgrupper WHERE id=" & RS2("hovedgruppe")
RS3.Open SQL3, DBConnect, 1
Response.Write "<div id='indhold' align='left' class='indhold' style='position:absolute; left:15px; top:40px; width:435px; height:445px; z-index:13; overflow:auto;'>"
Response.Write "<table width='420' class='broedtekst' border='0' cellspacing='0' cellpadding='0'>"
Response.Write "<tr>"
Response.Write "<td width='15'>"
Response.Write "<img src='grafik/pil.gif'>"
Response.Write "</td>"
Response.Write "<td width='405'>"
Response.Write "<b>" & RS1("varenr") & " - " & RS1("betegnelse") & "</b>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='15'>"
Response.Write " "
Response.Write "</td>"
Response.Write "<td width='405'><br><br>"
Response.Write "<table width='400' class='broedtekst' border='0' cellspacing='0' cellpadding='0'>"
Response.Write "<tr>"
Response.Write "<td width='190'>"
Response.Write "<img src='" & imgPath & lcase(RS1("billedid")) & "l.jpg' class='ramme' width='190' height='300' vspace='5'>"
Response.Write "</td>"
Response.Write "<td width=15'>"
Response.Write " "
Response.Write "</td>"
Response.Write "<td width='195' valign='top'><br>"
Response.Write RS1("beskrivelse")
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</table>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</table>"
Response.Write "</div>"
Response.Write "<div id='bestil' align='left' class='indhold' style='position:absolute; left:238px; top:210px; width:200px; height:150px; z-index:14;>"
Response.Write "<form name='bestilling' action='default.asp' method='get'>"
Response.Write "<input type='hidden' name='valg' value='laegikurv'>"
Response.Write "<input type='hidden' name='id' value='" & RS1("varenr") & "'>"
Response.Write "<table width='195' class='broedtekst' border='0' cellspacing='0' cellpadding='0'>"
Response.Write "<tr>"
Response.Write "<td width='65'>"
Response.Write " "
Response.Write "</td>"
Response.Write "<td>"
Response.Write " "
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='65'>"
Response.Write "<b>Pris:</b>"
Response.Write "</td>"
Response.Write "<td>"
Response.Write " <b>" & FormatCurrency(RS1("pris")) & "</b>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='65'>"
Response.Write " "
Response.Write "</td>"
Response.Write "<td>"
Response.Write " "
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='65'>"
Response.Write " "
Response.Write "</td>"
Response.Write "<td>"
Response.Write " "
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='65'>"
Response.Write "Farve:"
Response.Write "</td>"
Response.Write "<td>"
SQL4 = "SELECT DISTINCT farve FROM varianter WHERE varenr='" & RS1("varenr") & "'"
Set RS4=DBConnection.Execute(SQL4)
If RS4("farve") = 0 Then
Response.Write "-"
Response.Write "<input type='hidden' name='farve' value='-'>"
Else
RS4.MoveFirst
Response.Write "<select name='farve' style='background-color:#ffffff; font-size: 9; color: #666666; font-family: arial, helvetica; width: 85'>"
While Not RS4.EOF
SQL5 = "SELECT * FROM farver WHERE id=" & RS4("farve")
Set RS5 = DBConnection.Execute(SQL5)
Response.Write "<option value='" & RS5("id") & "'>" & RS5("farve") & "</option>"
RS4.MoveNext
Wend
Response.Write "</select>"
End If
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='65'>"
Response.Write " "
Response.Write "</td>"
Response.Write "<td>"
Response.Write " "
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='65'>"
Response.Write "Størrelse:"
Response.Write "</td>"
Response.Write "<td>"
SQL6 = "SELECT DISTINCT stoerrelse FROM varianter WHERE varenr='" & RS1("varenr") & "'"
Set RS6 = DBConnection.Execute(SQL6)
If RS6("stoerrelse") = "-" Then
Response.Write "-"
Response.Write "<input type='hidden' name='stoerrelse' value='" & RS6("stoerrelse") & "'>"
Else
While Not RS6.EOF
stoerrelser = stoerrelser & RS6("stoerrelse") & ", "
RS6.MoveNext
Wend
stoerrelser = Left(stoerrelser, len(stoerrelser)-2)
aStoerrelser = Split((stoerrelser),",")
a=0
Response.Write "<select name='stoerrelse' style='background-color:#ffffff; font-size: 9; color: #666666; font-family: arial, helvetica ; width: 85'>"
For Each Element In aStoerrelser
Response.Write "<option value='" & aStoerrelser(a) & "'>" & aStoerrelser(a) & "</option>"
a=a+1
Next
Response.Write "</select>"
End If
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='65'>"
Response.Write " "
Response.Write "</td>"
Response.Write "<td>"
Response.Write " "
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='65'>"
Response.Write "Antal:"
Response.Write "</td>"
Response.Write "<td>"
Response.Write "<input type='text' name='antal' value='1' style='background-color:#ffffff; font-size: 9; color: #666666; font-family: verdana, helvetica, arial; width: 22; text-align: right'>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='65'>"
Response.Write " "
Response.Write "</td>"
Response.Write "<td>"
Response.Write " "
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='65'>"
Response.Write " "
Response.Write "</td>"
Response.Write "<td>"
Response.Write " "
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='65'>"
Response.Write " "
Response.Write "</td>"
Response.Write "<td align='right'>"
Response.Write "<Input type='submit' name='bestil' src='grafik/bestil.gif'>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</table>"
Response.Write "</form>"
Response.Write "</div>"
End Sub
