2 svar · 929 visningar · startad av WebbisNet
Jag har en select och en textruta, Selecten väljer vilken kolumn som ska väljas och en textruta som ska ange värdet, mitt problem är att inget läggs till i databasen och redirecten funkar inte.
När jag skriver ut varSelect och varVarde så får jag med värdena
<%
varSelect = FriendlySQL(Request.Form ("kolumn"))
varVarde = FriendlySQL(Request.Form ("txtValue"))
SET objConn = connect()
If varSelect = valStatus Then
addPost = "INSERT INTO tblUsers_ExtraInfo"
addPost = addPost & "(status) "
addPost = addPost & "VALUES('"& varVarde &"')"
'response.write addPost
'response.end
objConn.Execute(addPost)
response.redirect "/Admin/administration.asp"
End if
If varSelect = valSoker Then
addPost = "INSERT INTO tblUsers_ExtraInfo"
addPost = addPost & "(soker) "
addPost = addPost & "VALUES('"& varVarde &"')"
'response.write addPost
'response.end
objConn.Execute(addPost)
response.redirect "/Admin/administration.asp"
End if
If varSelect = valSexliv Then
addPost = "INSERT INTO tblUsers_ExtraInfo"
addPost = addPost & "(sexliv) "
addPost = addPost & "VALUES('"& varVarde &"')"
'response.write addPost
'response.end
objConn.Execute(addPost)
response.redirect "/Admin/administration.asp"
End if
If varSelect = valLeksak Then
addPost = "INSERT INTO tblUsers_ExtraInfo"
addPost = addPost & "(leksak) "
addPost = addPost & "VALUES('"& varVarde &"')"
'response.write addPost
'response.end
objConn.Execute(addPost)
response.redirect "/Admin/administration.asp"
End if
If varSelect = valHarfarg Then
addPost = "INSERT INTO tblUsers_ExtraInfo"
addPost = addPost & "(harfarg) "
addPost = addPost & "VALUES('"& varVarde &"')"
'response.write addPost
'response.end
objConn.Execute(addPost)
response.redirect "/Admin/administration.asp"
End if
If varSelect = valTander Then
addPost = "INSERT INTO tblUsers_ExtraInfo"
addPost = addPost & "(tander) "
addPost = addPost & "VALUES('"& varVarde &"')"
'response.write addPost
'response.end
objConn.Execute(addPost)
response.redirect "/Admin/administration.asp"
End if
If varSelect = valStallning Then
addPost = "INSERT INTO tblUsers_ExtraInfo"
addPost = addPost & "(stallning) "
addPost = addPost & "VALUES('"& varVarde &"')"
'response.write addPost
'response.end
objConn.Execute(addPost)
response.redirect "/Admin/administration.asp"
End if
%>
If varSelect = valStatus Then
Det här ser lite skumt ut, då 'valStatus' verkar vara en variabel (konstant?). Det är inte så att det ska vara ett strängvärde, som t.ex. så här;
If varSelect = "valStatus" Then
Du får göra samma sak i alla dina if-satser.
Dessutom; en Select Case-sats är lite snyggare än ett gäng if'ar;
Select Case Request("Baluba")
Case "foo"
'do something
Case "bar"
'do something else
End Select
HEJ!
Jag undrar varför varje post stoppas in på en egen rad, och inte på samma, när allt går in i samma tabell?
