webForumDet fria alternativet

funktioner + db koppling...??

ASPur ASP

4 svar · 282 visningar · startad av Eclipse

EclipseMedlem sedan juli 20003 825 inlägg
#1

Jag har en sida som jag inkluderar:

inc_addClick.asp

***
I denna filen har jag denna kod:

<!-- #INCLUDE VIRTUAL="/admin/open.asp" -->
<%
' ## EN HIMLA MASSA FUNKTIONER

' ## B A N N E R
FUNCTION funcAddClickBanner(intBannerID)
	' ## ACTIVE COMPANY
	SQL = "SELECT c.intID, c.strURL, c.intPayPerClick, c.bolPayPerClick, c.strPayPerClickEmail " _
	& ", b.intID, b.strName, b.strURL " _
	& " FROM company c, banner b WHERE " _
	& " b.intCompanyID = c.intID AND " _
	& " ((c.intPayPerClick > 0 AND c.bolPayPerClick = FALSE) OR c.bolPayPerClick = TRUE) AND b.intID = " & intBannerID & ";"

	[b]set mySQL = Conn.Execute(SQL)[/b] rad 17
[cut]
END FUCTION
%>

<!-- #INCLUDE VIRTUAL="/admin/close.asp" -->

***
När jag kör funktionerna får jag felmeddelandet

Microsoft VBScript runtime error '800a01a8'

Object required: 'Conn'

/admin/inc_addClick.asp, line 17

***
I andra sammanhang har funktionerna fungerat på liknande manér... What's the deal this time!?

oGGoMedlem sedan apr. 2003120 inlägg
#2

Detta felmeddelande får man när som just felsidan beskriver, inte har definierat Conn.

Det är helt enkelt bara att sätta in koden / includefilen för Databaskopplingen ovanför denna fil så bör det fungera.

EclipseMedlem sedan juli 20003 825 inlägg
#3
'## OPEN THE DATABASE
DIM Conn, SQL, mySQL, myPost, myRow, i, j
Set Conn = Server.CreateObject("ADODB.Connection")

'## OPEN THE DATABASE
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & session("databasePath")

' ## B A N N E R
FUNCTION funcAddClickBanner(intBannerID)

Jag förstår inte... !!

OveRRidEMedlem sedan feb. 200112 078 inlägg
#4

Det skall fungera, vad jag kan se.

Det är inte så att du kanske stänger/förstör "Conn" i någon av de andra metoder (som du kanske anropar någonstans) ovanför den som felet inträffar i?

Kan du inte posta hela koden, med de andra metoderna också?

EclipseMedlem sedan juli 20003 825 inlägg
#5
<!-- #INCLUDE VIRTUAL="/admin/open.asp" -->
<!-- #INCLUDE VIRTUAL="/admin/inc_addClick.asp" -->
<%
' ## REDIRECT.ASP
' ## WILL GET THE USER TO RIGHT PLACE!

IF request("bannerID") <> "" THEN
	returnPath = funcAddClickBanner(CInt(request("bannerID")))
END IF
%>
<!-- #INCLUDE VIRTUAL="/admin/close.asp" -->
<%
' ## GO THERE!
response.redirect returnPath
%>
130 ms totalt · 3 externa anrop · v20260731065814-full.29ac60f6
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
128 ms — hämta tråd, inlägg och bilagor (db)