webForumDet fria alternativet

flera sök kriterier

ASP

6 svar · 275 visningar · startad av webzonen

Medlem sedan feb. 2001390 inlägg
Frågan#1

Använder följande:

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DRIVER={MySQL};DATABASE=webzonen;UID=Root;PWD=;SERVER=localhost;"
SQL = "select count(*) AS count_ads from Annonser WHERE f_kundbildstorlek='468x60' AND F_Kundmaxvisningar > 0 " 
Set RS_count_ads = Connect.Execute(SQL)

får inget felmeddelande, men den väljer ut alla poster, inkl. de som har under 0 i sitt f_Kundmaxvisningar. Om ni undrar är detta till ett bannervisningssystem.

PS.1 jag kör MyODBC på Win 98, men får i bland felet
ODBC: To many COnnections, vad beror det på? jag stänger alltid db kopplingar

Medlem sedan dec. 200012 464 inlägg
#2

Jag ser inget fel i SQL-frågan.

men den väljer ut alla poster, inkl. de som har under 0 i sitt f_Kundmaxvisningar

Hur vet du det?

Medlem sedan feb. 2001390 inlägg
#3

jo, för jag ser vilka banners den väljer ut, och jag har statistik, så på en del som har -2 visas ändå!

Medlem sedan dec. 200012 464 inlägg
#4

Den frågan du visade räknar ju bara antalet som uppfyller vissa villkor. Du måste ha någon annan kod som tar fram en banner.

Medlem sedan feb. 2001390 inlägg
#5

jo, hela koden:

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DRIVER={MySQL};DATABASE=webzonen;UID=Root;PWD=;SERVER=localhost;"
SQL = "select count(*) AS count_ads from Annonser WHERE f_kundbildstorlek='468x60' AND F_Kundmaxvisningar > 0 " 
Set RS_count_ads = Connect.Execute(SQL)

Randomize
vilkenad = Int(rnd*RS_count_ads("count_ads")) +0
SQL = "Select * from Annonser"

Set RSdbase = Server.CreateObject("ADODB.Recordset")
RSdbase.open SQL, "DRIVER={MySQL};DATABASE=webzonen;UID=Root;PWD=;SERVER=localhost;"
RSdbase.Move vilkenad
		Set Connect1 = Server.CreateObject("ADODB.Connection")
		Connect1.Open "DRIVER={MySQL};DATABASE=webzonen;UID=Root;PWD=;SERVER=localhost;"
		SQL1 = "UPDATE Annonser SET f_Kundvisningar=f_Kundvisningar+1,f_KundMaxVisningar=f_Kundmaxvisningar-1 WHERE ID="& RSdbase("id")
		Connect1.Execute(SQL1)
		Connect1.Close
		Set Connect1=Nothing
		

%>
<a href="adsredir.asp?ID=<% =RSdbase("ID") %>&url=<%=RSdbase("f_KundAdress")%>" target="_blank">
<img border="1" WIDTH="468" height="60" src="<% =RSdbase("f_KundBild") %>" border="0" alt="<% =RSdbase("f_KundAltText") %>">
</a>

<%
RSdbase.close
set RSdbase=Nothing
Connect.close
Set Connect=nothing
		%>
Medlem sedan dec. 200012 464 inlägg
#6

Nu förstår jag inte

Randomize
vilkenad = Int(rnd*RS_count_ads("count_ads")) +0
SQL = "Select * from Annonser"

Här har du inget villkor, så då får du med alla annonser.

Borde det inte vara

Randomize
vilkenad = Int(rnd*RS_count_ads("count_ads")) +0
SQL = "Select * from Annonser WHERE f_kundbildstorlek='468x60' AND F_Kundmaxvisningar > 0 "
Medlem sedan feb. 2001390 inlägg
#7

oooh tack LarsG! faan vad illa av mig att inte set det där! :r :r

258 ms totalt · 4 externa anrop · v20260731065814-full.e96017d9
127 ms — deklarationer (db)
0 ms — hämta statistik (cache)
124 ms — hämta tråd, inlägg och bilagor (db)
130 ms — ändringar (db)