Öka fältet med +1

6 svar · 223 visningar · startad av hallmert 24 jan. 2005

hallmertMedlem sedan dec. 2004182 inlägg

Frågan24 jan. 2005 20:16#1

Hallå där!

Håller på att scriptar lite. När man skriver i gästboken ska fältet "gb" i tabellen members ökas med +1, så man kan få fram antalet skrivna gästboksinlägg för varje registrerad individ. Varför funkar inte detta?

<!-- #include file="adovbs.inc" -->

<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/fanclub.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From members update gb+1 where ID = "& request.querystring("fromID")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet.Update
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>

<%

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/fanclub.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From gb where id="&Session("id")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

	RecSet.AddNew

	RecSet("namn") = Session("namn")
	RecSet("datum") = Now()
	RecSet("text") = Request.Form("text")
	RecSet("tillID") = Request.QueryString("ID")
	RecSet("fromID") = Session("id")
	RecSet("readed") = 0
	
	Connect.Execute("update members gb+1 where ID = "& request.querystring("fromID") )

	RecSet.Update
	RecSet.Close
	Connect.Close
	Set RecSet = nothing
	Set Connect = nothing

	If Request.Querystring("typ") = "popup" then
	Response.Redirect "gastbok_svara.asp?meddelande=skickat"
	Else
	Response.Redirect "default.asp?visaSida=gastbok_lasa&ID=" &Request.QueryString("ID")
	End If

%>

Det är fel på första SQL-strängen va?
Tack på förhand!

Jesper TMedlem sedan nov. 20017 144 inlägg

24 jan. 2005 20:27#2

update members gb=gb+1 where ID = "& request.querystring("fromID")

Jesper TMedlem sedan nov. 20017 144 inlägg

24 jan. 2005 20:30#3

Detta kan du väl ta bort helt:

<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/fanclub.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From members update gb+1 where ID = "& request.querystring("fromID")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet.Update
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>

hallmertMedlem sedan dec. 2004182 inlägg

24 jan. 2005 20:32#4

Hur menar du? Den översta "delen" ska ju uppdatera gb-fältet i tabellen members. Den undre ska ju mata in gästboksinlägget i tabellen gb.

Jesper TMedlem sedan nov. 20017 144 inlägg

24 jan. 2005 20:35#5

Byt ut resten mot något liknande:

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/fanclub.mdb")

Connect.Execute("INSERT INTO gb (namn,datum,text,tillID,fromID,readed) VALUES('"& Session("namn") &"','"& Now() &"','"& Request.Form("text") &"',"& Request.QueryString("ID")& ","& Session("id") &",0)"),,128

Connect.Execute("update members gb=gb+1 where ID = "& request.querystring("fromID") ),,128

	Connect.Close
	Set Connect = nothing

	If Request.Querystring("typ") = "popup" then
	Response.Redirect "gastbok_svara.asp?meddelande=skickat"
	Else
	Response.Redirect "default.asp?visaSida=gastbok_lasa&ID=" &Request.QueryString("ID")
	End If

Jesper TMedlem sedan nov. 20017 144 inlägg

24 jan. 2005 20:37#6

hallmert skrev:

Hur menar du? Den översta "delen" ska ju uppdatera gb-fältet i tabellen members. Den undre ska ju mata in gästboksinlägget i tabellen gb.

Det gör du ju i den andra delen.

update members gb=gb+1 where ID = "& request.querystring("fromID")

@ndersMedlem sedan juni 200032 967 inlägg

25 jan. 2005 04:08#7

Jesper T skrev:

update members gb=gb+1 where ID = "& request.querystring("fromID")

Jesper har glömt ett set mellan tabell- och fältnamnet i SQL-frågan. :)