<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("db/db.mdb") id_cw = Request.QueryString("id") sql = "select * from upcomming_cws where id= " & id_cw & "" set cw_info = Conn.Execute(sql)
if Request.querystring("won") = ("clan_one") then Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("db/db.mdb") strSQL = "UPDATE clans SET won = won +1 WHERE [ID] = " & cw_info("clan1") Conn.Execute(strSQL)
Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("db/db.mdb") sql = "SELECT * from clans WHERE ID=" & cw_info("clan2") Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, Conn, 1, 3
rs.update rs("lost") + 1 rs.update
Response.Redirect("delete_upcw.asp?delete=" & request.QueryString("id")) end if %>
<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("db/db.mdb") id_cw = Request.QueryString("id") sql = "select * from upcomming_cws where id= " & id_cw & "" set cw_info = Conn.Execute(sql)
if Request.querystring("won") = ("clan_one") then Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("db/db.mdb") strSQL = "UPDATE clans SET won = won +1 WHERE [ID] = " & cw_info("clan1") Conn.Execute(strSQL)
Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("db/db.mdb") strSQL = "UPDATE clans SET lost = lost +1 WHERE [ID] = " & cw_info("clan2") Conn.Execute(strSQL)
Response.Redirect("delete_upcw.asp?delete=" & request.QueryString("id")) end if %>
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.