09. november 2001 - 04:04Der er
4 kommentarer og 3 løsninger
Hvorfor opdateres der ikke?
Jeg har lavet en redirect side, hvor der er meningen at den skal opdatere feltet point i databasen, men det virker ikke, hvorfor? den redir. fint...
Her er min kode:
<% if side = \"redirect\" then %> <% if session(\"login\") = \"\" then
set rs = conn.execute(\"SELECT * FROM banner WHERE id = \" & Request.QueryString(\"id\") & \"\") url = rs(\"url\") Response.Redirect(url)
else
Set rs = Server.CreateObject(\"ADODB.RecordSet\") SQL = \"SELECT * FROM brugere WHERE id = \" & session(\"login\") & \"\" rs.Open SQL, Conn, 1, 3 If Not (rs.BOF Or rs.EOF) Then rs(\"point\") = rs(\"point\") + 2 rs.Update End If rs.close set rs = nothing
set rs = Server.CreateObject(\"ADODB.Recordset\") rs.Open \"SELECT * FROM banner WHERE id = \" & Request.QueryString(\"id\") & \"\" url = rs(\"url\") Response.Redirect(url) rs.Close set rs = nothing Conn.Close set Conn = nothing end if %> <% end if %>
<% if side = \"redirect\" then %> <% if session(\"login\") = \"\" then
set rs = conn.execute(\"SELECT * FROM banner WHERE id = \" & Request.QueryString(\"id\") & \"\") url = rs(\"url\") Response.Redirect(url)
else
Set rs = Server.CreateObject(\"ADODB.RecordSet\") SQL = \"SELECT * FROM brugere WHERE id = \'\" & session(\"login\") & \"\'\" rs.Open SQL, Conn, 1, 3 If Not (rs.BOF Or rs.EOF) Then rs(\"point\") = rs(\"point\") + 2 rs.Update End If rs.close set rs = nothing
set rs = Server.CreateObject(\"ADODB.Recordset\") rs.Open \"SELECT * FROM banner WHERE id = \" & Request.QueryString(\"id\") & \"\" url = rs(\"url\") Response.Redirect(url) rs.Close set rs = nothing Conn.Close set Conn = nothing end if %> <% end if %>
<% if side = \"redirect\" then %> <% if session(\"login\") = \"\" then
set rs = conn.execute(\"SELECT * FROM banner WHERE id = \" & Request.QueryString(\"id\") & \"\") Response.Redirect(rs(\"url\"))
else
Set rs = Server.CreateObject(\"ADODB.RecordSet\") SQL = \"SELECT * FROM brugere WHERE id = \" & session(\"login\") & \"\" rs.Open SQL, Conn, 1, 3 If Not (rs.BOF Or rs.EOF) Then rs(\"point\") = rs(\"point\") + 2 rs.Update End If
rs.close set rs = nothing
set rs = Server.CreateObject(\"ADODB.Recordset\") rs.Open \"SELECT * FROM banner WHERE id = \" & Request.QueryString(\"id\") & \"\"
Response.Redirect(rs(\"url\"))
end if %> <% end if %>
og der er nu kun redirect i \"else\" der ikke fungere.. resten virker... ?
<% if side = \"redirect\" then %> <% if session(\"login\") = \"\" then
set rs = conn.execute(\"SELECT url FROM banner WHERE id = \" & Request.QueryString(\"id\") & \"\") Response.Redirect(rs(\"url\"))
rs.close set rs = nothing
else
Set rs = Server.CreateObject(\"ADODB.RecordSet\") SQL = \"SELECT * FROM brugere WHERE id = \" & session(\"login\") & \"\" rs.Open SQL, Conn, 1, 3 If Not (rs.BOF Or rs.EOF) Then rs(\"point\") = rs(\"point\") + 2 rs.Update End If
rs.close set rs = nothing
set rs = conn.execute(\"SELECT url FROM banner WHERE id = \" & Request.QueryString(\"id\") & \"\") Response.Redirect(rs(\"url\"))
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
