Fel med redirect

11 svar · 259 visningar · startad av webzonen 1 juni 2001

webzonenMedlem sedan feb. 2001390 inlägg

Frågan1 juni 2001 16:16#1

Har ett addlink-script som jag skrev igår. Problemet är att jag inte får till det med att den skall lägga till klick samt att den ska skicka vidare.
problemet är att den inte skickar vidare mig till sidan. bifogar min kod:


<% If Request.QueryString("do") = "redir" Then 
 		Set Connect = Server.CreateObject("ADODB.Connection")
		Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=C:\Inetpub\wwwroot\jforum\addlink\addlink.mdb"
		Set RecSet = Server.CreateObject("ADODB.Recordset")

		Set rs = Connect.execute("select * from addlink WHERE ID= " & Request.Querystring("ID"))

		url_ut=rs("Url")
		counter_ut=rs("Klick")
		rs.close
	
		counter_ut=counter_ut+2

		Connect.execute("update all_data set Klick=" & counter_ut & " WHERE ID= " & Request.Querystring("ID"))
		url_ut=rs("Url")

		Response.Redirect(url_ut)

		Connect.Close
	
End If 
%>

Kan ni hitta felet? den varken skickar vidare eller räknar klick.

------------------
Rom byggdes inte på en dag - det tog en halv

[Redigerat av webzonen den 01 jun 2001]

clarkbonesMedlem sedan feb. 20013 023 inlägg

1 juni 2001 16:57#2

Ta bort parenteser kring url_ut

vid response.redirect

[Redigerat av clarkbones den 01 jun 2001]

polswedMedlem sedan aug. 2000129 inlägg

1 juni 2001 16:57#3

Är nybörjare, så jag vet inte riktigt ;)
Men man kommer ju aldrig nånstans om man inte försöker :)
Ska det inte stå "Response.Redirect "sidan.asp" "

------------------
if(SmC==notHere)
then (SmC==backSoon)
else die;

LarsGMedlem sedan dec. 200012 464 inlägg

1 juni 2001 17:03#4

Nej, inget direkt sådär. Bara lite funderingar.

Kommer du in i if-blocket över huvud taget? Du kan ju testa med att lägga in lite testutskrifter.

Du hämtar klick från addlink men du uppdaterar en all_data?

Inga felmeddelanden?

------------------
essentitia preter non sans multiplicandum

webzonenMedlem sedan feb. 2001390 inlägg

1 juni 2001 17:14#5

nope inga felmeddelanden... men tack, jag missade en grej, jag famlar lite

------------------
Rom byggdes inte på en dag - det tog en halv

webzonenMedlem sedan feb. 2001390 inlägg

1 juni 2001 17:18#6

ag använder response write så skirver den ut rätt länk... men ingen uppdatering av databasen

------------------
Rom byggdes inte på en dag - det tog en halv

LarsGMedlem sedan dec. 200012 464 inlägg

1 juni 2001 17:59#7

Så redirect fungerar nu?

Har du kört den updatesats du får separat? Ser den ok ut? Finns det någon post med det ID som du skickar in?

Tror också att du behöver skriva


counter = cint(rs("klick"))

------------------
essentitia preter non sans multiplicandum

emissionMedlem sedan dec. 19996 721 inlägg

1 juni 2001 18:11#8

Set rs = Connect.execute("select Url from addlink WHERE ID= " & Request.Querystring("ID"))

url_ut=rs("Url")
rs.close
Connect.execute "update all_data set Klick=Klick+1 WHERE ID= " & Request.Querystring("ID")

Response.Redirect url_ut

Connect.Close

BenganMedlem sedan juni 2000690 inlägg

1 juni 2001 21:49#9

En liten fundering bara:

Borde man inte köra Connect.Close och förstöra objektet FÖRE Response.Redirect?

------------------
MvH
/Bengan
www.bengan.com | Brossans Räjser
"Better to be hated for who you are than loved for who you're not."

@ndersMedlem sedan juni 200032 969 inlägg

2 juni 2001 06:06#10

jo.

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
can i borrow your goat?
</A>

webzonenMedlem sedan feb. 2001390 inlägg

2 juni 2001 09:31#11

Nu kör jag så här, men får ett felmeddelande, nämligen
[Microsoft][ODBC Driver Manager] Drivrutinens SQLSetConnectAttr misslyckades.
/jforum/addlink/redir2.asp, rad 9

<% Response.Buffer = True %>
<!-- #include file="adovbs.inc" -->

<% If Request.QueryString("do") = "redir" Then 
 		Set Connect = Server.CreateObject("ADODB.Connection")
		Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=C:\Inetpub\wwwroot\jforum\addlink\addlink.mdb"
		Set RecSet = Server.CreateObject("ADODB.Recordset")
	

Set rs = Connect.execute("select Url from addlink WHERE ID= " & Request.Querystring("ID"))
url_ut=rs("Url")
rs.close
Connect.execute "update addlink set Klick=Klick+1 WHERE ID= " & Request.Querystring("ID")

Response.Redirect url_ut

Connect.Close

	
End If 
%>

Detta är koden, kan ni se felet??

------------------
Rom byggdes inte på en dag - det tog en halv

webzonenMedlem sedan feb. 2001390 inlägg

2 juni 2001 11:09#12

tack alla för hjälpen, det löste sig på ett enkelt sätt, felet var att jag inte satte standardvärdet till noll på fältet klick, men nu funkar det

------------------
Rom byggdes inte på en dag - det tog en halv