Fel med redirect

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

webzonenMedlem sedan feb. 2001390 inlägg

Trådstart1 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.

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" "

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?

webzonenMedlem sedan feb. 2001390 inlägg

1 juni 2001 17:14#5

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

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

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"))

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?

@ndersMedlem sedan juni 200032 967 inlägg

2 juni 2001 06:06#10

jo.

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??

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