<% if session( request.querystring("nummer") )="" then set conn = Server.CreateObject("ADODB.Connection") set rs=Server.CreateObject("ADODB.Recordset") conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("../data/vykorten.mdb") SQL ="SELECT nummer, vote_ja, vote_nej From vykortlista WHERE nummer=" & request.querystring("nummer") rs.Open SQL, conn ja_value=rs("vote_ja") nej_value=rs("vote_nej") rs.Close SQL ="SELECT nummer, vote_ja, vote_nej, senaste From vykortlista WHERE nummer=" & request.querystring("nummer") rs.Open SQL, conn, 1, 2 if request.querystring("ja")=1 AND request.querystring("nej")=0 then rs("vote_ja")=ja_value+1 session(request.querystring("nummer"))="1" end if if request.querystring("ja")=0 AND request.querystring("nej")=1 then rs("vote_nej")=nej_value+1 session(request.querystring("nummer"))="1" end if rs("senaste")=Now rs.Update rs.Close response.redirect("kort.asp?" & session("kortsida")) else response.redirect("kort.asp?" & session("kortsida")) end if %>