9 svar · 156 visningar · startad av Jeppez
Hello ... Jag har laddat ned en community script .... ( aspsidans ) , Har gjort om den lite , Och gjort om designen efter mina behov ... Sen när jag ska gå in på "Mina uppgifter" sidan ... så får jag detta medelande :
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'RecSet'
/qnz/db/community/whois.asp, line 110
, Vad e det som kan va fel ?! ( Jag e en nybörjare på asp )
------------------
Jag e bäst ! =)
Gå in på den här sidan : http://www24.brinkster.com/qnz/db/community/default.asp , O så kan du bli medlem ... SEn klickar du på "Din sida" , Så ser du felet ! :q
------------------
Jag e bäst ! =)
Hur ser koden ut där du skapar ditt recset samt raden 110 och raderna runt 110?
mvh Jörgen :)
------------------
.: Det är jag som ger svaren och det är Ni som ställer frågorna :.
Har du rätt kolumnnamn i Recordset:et då du hämtar från databasen?
------------------
/A.S
[Redigerat av skyman den 17 jan 2002]
<!-- #include file="adovbs.inc" -->
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("members.mdb")&";pwd=losen"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From members Where id = " &Request.QueryString("checkid")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
<html>
<head>
<title>Profilen</title>
<LINK REL=stylesheet HREF="http://www24.brinkster.com/qnz/db/community/style.css" TYPE="text/css">
</head>
<body bgcolor="#FFF7EF" text="#000000">
<table border="0" cellpadding="0" cellspacing="0" height="30" width="474">
<tr>
<td width="474"><img border="0" src="../Ampy/ampycommunity/bilder/rubrik-profilen.gif" width="474" height="17"></td>
</tr>
</table>
<table height="*" bgcolor="#ffffff" width="474" border="0" cellspacing="2" cellpadding="2" style="border: 1 solid #000000">
<tr>
<td>
<table widht="474">
<tr>
<td width="85" valign="top"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
\<%If RecSet("bild") = "http://" Then%\>\<img src="\<%=RecSet("bild")%\>" \<%Else%\>\<img src="\<%=RecSet("bild")%\>" width="80" height="100"\>\<%End If%\>\<br\>
\</font\>
\</td\>
\<td widht="389" valign="top"\>
\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>
\<b\>Presentation:\</b\>\<br\>
\<i\>\<%=RecSet("citat")%\>\</i\>
\</font\>
\</tr\>
</table>
<table widht="474">
<tr style="BORDER-BOTTOM: #000000 1px SOLID; BORDER-TOP: #000000 1px solid; BORDER-RIGHT: #000000 0px solid; BORDER-LEFT: #000000 0px solid" borderColor=#000000 bgcolor="#FDD182">
<td widht="237">
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
Fakta
</td>
<td widht="237">
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
Information
</td>
</tr>
<tr>
<td widht"237" valign="top">
\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>
\<b\>Nickname:\</b\>
\<%=RecSet("username")%\>
\<br\>
\<b\>Namn:\</b\>
\<%=RecSet("fnamn")%\> \<%=RecSet("enamn")%\>
\<br\>
\<b\>Ålder:\</b\>
\<%=RecSet("alder")%\>
\<br\>
\<b\>Stad:\</b\>
\<%=RecSet("stad")%\>
\<br\>
\<b\>Status:\</b\>
\<font size="1" \<%if recset("status") = "offline" then%\> color="#FF0000" \<%else%\>color="#00CC00" \<%end if%\>face="Verdana, Arial, Helvetica, sans-serif" face="Verdana, Arial, Helvetica, sans-serif"\>\<%=RecSet("status")%\>\</font\>
\<br\>
\<b\>Kön:\</b\>
\<%=RecSet("kon")%\>
\</font\>
\</td\>
\<td valign="top" widht"237"\>
\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>
\<b\>Poäng:\</b\>
\<%=RecSet("poang")%\>
\<br\>
\<b\>Medlem sedan:\</b\>
\<%=RecSet("blevmedlem")%\>
\<br\>
\<b\>Medlem nr:\</b\>
\<%=RecSet("id")%\>
\</font\>
\</td\>
\</tr\>
<tr style="BORDER-BOTTOM: #000000 1px SOLID; BORDER-TOP: #000000 1px solid; BORDER-RIGHT: #000000 0px solid; BORDER-LEFT: #000000 0px solid" borderColor=#000000 bgcolor="#FDD182">
<td widht="237">
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
Kontakt
</td>
<td widht="237">
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
Aktivitet
</td>
</tr>
<tr>
<td widht="237" valign="top">
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
\<b\>E-mail:\</b\>
\<%=RecSet("epost")%\>
\<br\>
\<b\>Hemsida:\</b\>
\<a href="\<%=RecSet("personligURL")%\>"\>\<%=RecSet("personligURL")%\>\</a\>
\<br\>
\<b\>ICQ:\</b\>
\<%=RecSet("icq")%\> \<img src="http://wwp.icq.com/scripts/online.dll?icq=\<% = RecSet("icq") %\>&img=5" width="20" height="20"\>
</font>
\</td\>
\<td valign="top"\>
\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>
\<b\>Antal inloggningar:\</b\>
\<%=RecSet("inloggningar")%\>
\<br\>
\<b\>Senaste inloggad:\</b\>
\<%=RecSet("datum")%\>
\<br\>
\<b\>Skickade meddelanden:\</b\>
\<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (\*.mdb)}; dbq=" & Server.MapPath("messages.mdb")
Set oRS = Connect.Execute("select count(\*) as no from message where fromID =148")
%\>
\<% =oRS("no") %\>
\<%
oRS.Close
Connect.Close
set oRS = Nothing
set Connect = Nothing
%\>
\<br\>
\<b\>Rang:\</b\>
\<%If RecSet("poang")\<50 Then%\>
Nykomling
\<% ElseIf RecSet("poang")\<200 Then%\>
Aktiv
\<%Else%\>
VIP
\<%End If%\>
\</font\>
</td>
</tr>
</table>
<tr style="BORDER-BOTTOM: #000000 1px SOLID; BORDER-TOP: #000000 1px solid; BORDER-RIGHT: #000000 0px solid; BORDER-LEFT: #000000 0px solid" borderColor=#000000 bgcolor="#FDD182">
<td widht="474">
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
Övrigt
</td>
</tr>
<tr>
<td> <font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<a href="add_friend.asp?id2=<%=Request.QueryString("checkid")%>" target="kompislista">Lägg
till denna medlem i din kompislista</a></font><br>
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<a href="send_mess.asp?toID=<%=RecSet("id")%>&direct=yes">Skicka ett meddelande till <%=RecSet("username")%></a><br>
<a href="read_gb.asp?tillid=<%=Request.QueryString("checkid")%>">Läs eller skriv i personens gästbok</a>
<br>
<%If Request.QueryString("change") = "yes" Then%>
<a href="change_info.asp?checkid=<%=Request.QueryString("checkid")%>">Ändra
mina uppgifter</a>
</font>
</td>
</TR>
</table>
</body>
</html>
<%
Set RecSet = nothing
Set Connect = nothing
%>
Här e hella koden för sidan !!!! ...
------------------
Jag e bäst ! =)
För att man ska kunna bli medlem , så måste man fylla i precis alla rutor , under "bli medlem" sidan !! ... :h
------------------
Jag e bäst ! =)
Påminner igen som icaaq gjort...
Använd wF-kod är du snäll... :)
Välkommen förresten!
------------------
/A.S