What's wrong with Update
What is Wrong with this code? The variable (like varhoyde) does not hold any relevant value. The value which is transferred into the db is "varhoyde"!
Thank you for spending your time...
<% option explicit
dim link
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>registrering_1_mann_sjekk</title>
</head>
<body>
<%
dim varhoyde,varhaar,varoye,varvekt
Select Case Request.QueryString("hoyde")
'a set of radiobuttens, same name, different values
Case "150"
varhoyde = "150"
Case "155"
varhoyde = "155"
Case "160"
varhoyde = "160"
Case "165"
varhoyde = "165"
Case "170"
varhoyde = "170"
Case "175"
varhoyde = "175"
Case "180"
varhoyde = "180"
Case "185"
varhoyde = "185"
Case "190"
varhoyde = "190"
Case "195"
varhoyde = "195"
Case "200"
varhoyde = "200"
Case "205"
varhoyde = "205"
Case Else
End Select
Select Case Request.QueryString("haar")
Case "lys_blond"
varhaar = "lys_blond"
Case "blond"
varhaar = "blond"
Case "mork_blond"
varhaar = "mork_blond"
Case "brun"
varhaar = "brun"
Case "mork_brun"
varhaar = "mork_brun"
Case "lys_brun"
varhaar = "lys_brun"
Case "sort"
varhaar = "sort"
Case "rod"
varhaar = "rod"
Case "graa"
varhaar = "graa"
Case "annet"
Case Else
End Select
Select Case Request.QueryString("oye")
Case "blaa"
varoye = "blaa"
Case "gronn"
varoye = "gronn"
Case "graa"
varoye = "graa"
Case "sort"
varoye = "sort"
Case "brun"
varoye = "brun"
Case Else
End Select
Select Case Request.QueryString("vekt")
Case "50"
varvekt = "50"
Case "55"
varvekt = "55"
Case "60"
varvekt = "60"
Case "65"
varvekt = "65"
Case "70"
varvekt = "70"
Case "75"
varvekt = "75"
Case "80"
varvekt = "80"
Case "85"
varvekt = "85"
Case "90"
varvekt = "90"
Case "95"
varvekt = "95"
Case "100"
varvekt = "100"
Case "105"
varvekt = "105"
Case "110"
varvekt = "110"
Case "115"
varvekt = "115"
Case Else
End Select
dim objComm,objRs
set objComm = server.createobject("ADODB.Command")
objComm.ActiveConnection = link
objComm.CommandText = "UPDATE Produkt SET ProduktHoyde = 'varhoyde', ProduktHaar = 'varhaar', ProduktOye = 'varoye', ProduktVekt = 'varvekt' WHERE ProduktNavn LIKE '" & session("innsjekknavn") & "';"
objComm.CommandType=adCmdText
Set objRs = objComm.Execute
Set objComm = Nothing
Set objRs = Nothing
Med vennlig hilsen
grstad
%>
<%= varhoyde %>
</body>
</html>
__________________
Internet has become favorable with that tool...thank you Tim Berners-Lee!
|