%@ Language=VBScript %>
<%
' if session("member") = "" then
' response.write "
Du är inte behörig.
"
' response.write "Du måste logga in på depån för att kunna uppdatera depåuppgifterna.
"
' response.end
' end if
dim usernr, a, extra(9,1)
usernr = Request.QueryString("usernr")
MyConn.Open connectme
SQLText = "SELECT "
SQLText = SQLText & "falgar as Fälgar, "
SQLText = SQLText & "dack as Däck, "
SQLText = SQLText & "motor as Avgassystem, "
SQLText = SQLText & "kostnad as Utrustning, "
SQLText = SQLText & "ovrigt as Övrigt, "
SQLText = SQLText & "pagang as Planer, "
SQLText = SQLText & "basta as Bästa, "
SQLText = SQLText & "samsta as Sämsta, "
SQLText = SQLText & "tidigarebil as Tidigare "
SQLText = SQLText & "FROM depa WHERE id = " & usernr & " "
rs.Open SQLText, MyConn
for a = 0 to 8
extra(a,0) = rs.fields(a).name
if rs.fields(a).name = "Bästa" then extra(a,0) = "Bästa med bilen" end if
if rs.fields(a).name = "Sämsta" then extra(a,0) = "Sämsta med bilen" end if
if rs.fields(a).name = "Tidigare" then extra(a,0) = "Tidigare bilar" end if
extra(a,1) = rs.fields(a)
if instr(rs.fields(a),crlf) then extra(a,1) = replace(rs.fields(a), crlf, "
") end if
next
MyConn.Close
%>
Ändra depåuppgifter för medlem nr. <%=usernr%> |