Træls nu

Hvis en kode ser sådan ud som neden stående virker den og linker til den url som ligger i databasen, men den tæller ikke i hitcount.

<%


Dim siteHit
        if(Request.QueryString("siteID") <> "") then siteHit = Request.QueryString("siteID")

strSQL = "SELECT * FROM TBLSites WHERE siteID="&siteHit
Response.Write strSQL
objRS.Open strSQL, objConn

dim oldHit, NEWHITVALUE_INSERT, strINSERT
    oldHit = objRS("hitCount")   

   
   
Response.Write("Site"&objRS("siteName")&" Has been Hit "&objRS("hitCount")&" times")

NEWHITVALUE_INSERT = oldHit +1
    strINSERT = "UPDATE TBLSites SET hitCount = " & NEWHITVALUE_INSERT &" WHERE SiteId="&SiteHit
    'objConn.Execute(strINSERT)

dim winLoc   
    winLoc=objRS("siteURL")
   
    Response.Redirect ("http://"&winLoc)
   
%>

Men hvis jeg ændre den til den originale som ser sådan ud får jeg følgende fejl, kan nogen hjælpe mig med det ?

<%

Dim siteHit
        if(Request.QueryString("siteID") <> "") then siteHit = Request.QueryString("siteID")

strSQL = "SELECT * FROM TBLSites WHERE siteID="&siteHit
Response.Write strSQL
objRS.Open strSQL, objConn

dim oldHit, NEWHITVALUE
    oldHit = objRS("hitCount")   

   
   
Response.Write("Site"&objRS("siteName")&" Has been Hit "&objRS("hitCount")&" times")

NEWHITVALUE_INSERT = oldHit +1
    strINSERT = "UPDATE TBLSites SET hitCount = " & NEWHITVALUE_INSERT &" WHERE SiteId="&SiteHit
    objConn.Execute(strINSERT)

dim winLoc   
    winLoc=objRS("siteURL")
   
    Response.Redirect ("http://"&winLoc)
   
%>

Error Type:
Sun ONE ASP VBScript runtime (0x800A01F4)
'NEWHITVALUE_INSERT' is undefined
/rank/rankup.asp, line 56

Hvis jeg så definerer
Dim NEWHITVALUE_INSERT

Kommer yderligere en fejl og den er følgende

Error Type:
Sun ONE ASP VBScript runtime (0x800A01F4)
'strINSERT' is undefined
/rank/rankup.asp, line 50

Hvis man så definerer den så er det den ikke tæller.