WickmarkMedlem sedan juli 2003172 inlägg
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
Heter ditt recordset verkligen RecSet?
WickmarkMedlem sedan juli 2003172 inlägg
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
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 )