webForumDet fria alternativet

isNull problem

3 svar · 254 visningar · startad av Wickmark

WickmarkMedlem sedan juli 2003172 inlägg
#1

Tja, ska gå rakt på sak!

Databas -> Tabell -> 2 Kolumner (långt heltal; start värde: 226 / 196)

Kolumn 1:
bild_w
Kolumn 2:
bild_h

Har följande kod för att titta om användaren har skrivit in ngn information i dessa kolumner:

			if isNull(RecSet("bild_w")) then '<----- rad 197
			  img_w = 226
			else
			  img_w = RecSet("bild_w")
			end if
			
			if isNull(RecSet("bild_h")) then
			  img_w = 196
			else
			  img_w = RecSet("bild_h")
			end if

Resultat:

Microsoft VBScript runtime  error '800a000d'

Type mismatch: 'RecSet'

/LWSWE/db/vb/upload.asp, line 197

Har även testat med:

			if RecSet("bild_w") = "" then
			  img_w = 226
			else
			  img_w = RecSet("bild_w")
			end if
			
			if RecSet("bild_h") = "" then
			  img_w = 196
			else
			  img_w = RecSet("bild_h")
			end if

Samma fel!

Vad gör jag fel egentligen ?

MVH

@ndersMedlem sedan juni 200026 914 inlägg
#2

Heter ditt recordset verkligen RecSet?

WickmarkMedlem sedan juli 2003172 inlägg
#3

Hehe, japp :q

	<%
	  Set Conn = Server.CreateObject("ADODB.Connection")
	    Conn.Open "PROVIDER=Microsoft.JET.OLEDB.4.0;Data Source="&Server.MapPath("/LWSWE/admin/db/clanDB.mdb")&";Jet OLEDB:Database Password=XXX"
	   Set RecSet = Server.CreateObject("ADODB.Recordset")
	       RecSet.Open "SELECT * FROM medlemmar WHERE ID="&session("uid"), Conn, adOpenStatic, adLockOptimistic
		  %>
WickmarkMedlem sedan juli 2003172 inlägg
#4

Aha, hittade felet! Ganska pinsamt :r

		  <%
	   		Set Conn = Server.CreateObject("ADODB.Connection")
	 		Conn.Open "PROVIDER=Microsoft.JET.OLEDB.4.0;Data Source="&Server.MapPath("/LWSWE/admin/db/clanDB.mdb")&";Jet OLEDB:Database Password=XXX"
	   		Set RecSet = Server.CreateObject("ADODB.Recordset")
	    	   RecSet.Open "SELECT * FROM medlemmar WHERE ID="&session("uid"), Conn, adOpenStatic, adLockOptimistic
		  %>	
          <input name="img" type="text" id="img" size="40" maxlength="1200" value="<%=RecSet("bild")%>" />
         [red] <% 
		     RecSet.Close : Set RecSet = Nothing
		     Conn.Close : Set Conn = Nothing
		  %>[/red]
		  <br />
		  <%
		    dim img_w
			dim img_h
			
			if len([red]RecSet[/red]("bild_w")) = 0 then
			  img_w = 226
			else
			  img_w = [red]RecSet[/red]("bild_w")
			end if
			
			if len([red]RecSet[/red]("bild_h")) = 0 then
			  img_w = 196
			else
			  img_w = [red]RecSet[/red]("bild_h")
			end if
		  %>

Som det kan gå... :x

(EDIT: Testade som du ser med LEN före också :D )

Genererad på 382 ms · cache AV · v20260730165559-full.f96bc7eb