<%@ 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 %> Team barchetta Sweden depå ändring
<%for a = 0 to 8%> <%next%>
  Ändra depåuppgifter för medlem nr. <%=usernr%>
<%=extra(a,0)%>: 
Lösenord:  * OBS glöm inte lösenordet!