Notifikationer

Markér alle som læst Log ud

eklander Nybegynder

21. maj 2002 - 20:54 Der er 16 kommentarer og
3 løsninger

kan ikke finde min fejl....

den melder denne fejl...

Microsoft VBScript runtime error '800a01a8'
Object required: ''

/medie-projekt/member.asp, line 47

her er min kode...

<%@ language=VBScript %>

<HTML>
<HEAD>
<TITLE>Sport / Idræt - Medier</TITLE>
</HEAD>
<BODY BGCOLOR=#FFFFFF>
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>
<TR>
<TD><IMG SRC="images2/spacer.gif" WIDTH=25 HEIGHT=1></TD>
<TD><IMG SRC="images2/spacer.gif" WIDTH=1 HEIGHT=1></TD>
<TD><IMG SRC="images2/spacer.gif" WIDTH=145 HEIGHT=1></TD>
<TD><IMG SRC="images2/spacer.gif" WIDTH=25 HEIGHT=1></TD>
<TD><IMG SRC="images2/spacer.gif" WIDTH=519 HEIGHT=1></TD>
<TD><IMG SRC="images2/spacer.gif" WIDTH=26 HEIGHT=1></TD>
</TR>
<TR>
<TD COLSPAN=6><IMG SRC="images2/over_01.gif" WIDTH=741 HEIGHT=21></TD>
</TR>
<TR>
<TD ROWSPAN=14><IMG SRC="images2/over_02.gif" WIDTH=25 HEIGHT=484></TD>
<TD ROWSPAN=2><IMG SRC="images2/over_03.gif" WIDTH=1 HEIGHT=70></TD>
<TD COLSPAN=3><IMG SRC="images2/over_04.gif" WIDTH=689 HEIGHT=69></TD>
<TD ROWSPAN=14><IMG SRC="images2/over_05.gif" WIDTH=26 HEIGHT=484></TD>
</TR>
<TR>
<TD COLSPAN=3><IMG SRC="images2/over_06.gif" WIDTH=689 HEIGHT=1></TD>
</TR>
<TR>
<TD COLSPAN=4><IMG SRC="images2/over_07.gif" WIDTH=690 HEIGHT=19></TD>
</TR>
<TR>
<TD COLSPAN=2><IMG SRC="images2/over_08.gif" WIDTH=146 HEIGHT=31></TD>
<TD ROWSPAN=11><IMG SRC="images2/over_09.gif" WIDTH=25 HEIGHT=395></TD>
<TD ROWSPAN=11 background="images2/over_10.gif" WIDTH=519 HEIGHT=395 valign=top>
<table border="0" width="519">
<tr>
<td width="175" align="center">Navn :</td>
<td width="169" align="center">Status :</td>
<td width="175" align="center">E-mail :</td>
</tr>
<%
' SQL forespørgsel
strSQL = "Select * From users Order By user_status Desc"

' Udfør strSQL (rs kommer til at indeholde dataen)
Set rs = Conn.Execute(strSQL)

'Tjecker om der er noget i databasen
If rs.EOF Then

' Hvis der ikke er spytter den flg. ud
Response.Write "<br><br><center><h3>Her er pt. ingen nyheder!</h3></center><br><br>"

Else

' Men hvis den ikke er tom, begynder den nedenunder at pløje en masse dataer ud.
Do While Not rs.EOF

' Opbygning af tabellen.
Response.Write "<tr>"
Response.Write "<td width='175'>"
Response.Write rs("user_navn")
Response.Write "</td>"

Response.Write "<td width='169'>"
Response.Write rs("user_status")
Response.Write "</td>"

Response.Write "<td width='175'>"
Response.Write rs("user_email")
Response.Write "</td>"
Response.Write "</tr>"

' Gå til næste record i rs
rs.MoveNext

' Gå i loop indtil rs ikke indeholder flere records (= EOF)
Loop

End If
%>
</table>
</TD>
</TR>
<TR>
<TD COLSPAN=2><IMG SRC="images2/over_11.gif" WIDTH=146 HEIGHT=19></TD>
</TR>
<TR>
<TD COLSPAN=2><IMG SRC="images2/over_12.gif" WIDTH=146 HEIGHT=31></TD>
</TR>
<TR>
<TD COLSPAN=2><IMG SRC="images2/over_13.gif" WIDTH=146 HEIGHT=20></TD>
</TR>
<TR>
<TD COLSPAN=2><IMG SRC="images2/over_14.gif" WIDTH=146 HEIGHT=30></TD>
</TR>
<TR>
<TD COLSPAN=2><IMG SRC="images2/over_15.gif" WIDTH=146 HEIGHT=19></TD>
</TR>
<TR>
<TD COLSPAN=2><IMG SRC="images2/over_16.gif" WIDTH=146 HEIGHT=30></TD>
</TR>
<TR>
<TD COLSPAN=2><IMG SRC="images2/over_17.gif" WIDTH=146 HEIGHT=71></TD>
</TR>
<TR>
<TD COLSPAN=2><IMG SRC="images2/over_18.gif" WIDTH=146 HEIGHT=30></TD>
</TR>
<TR>
<TD COLSPAN=2><IMG SRC="images2/over_19.gif" WIDTH=146 HEIGHT=19></TD>
</TR>
<TR>
<TD COLSPAN=2 background="images2/over_20.gif" WIDTH=146 HEIGHT=95 valign=top></TD>
</TR>
<TR>
<TD COLSPAN=6><IMG SRC="images2/over_21.gif" width=741 height=25></TD>
</TR>
<TR>
<TD COLSPAN=6><IMG SRC="images2/over_22.gif" WIDTH=741 HEIGHT=1></TD>
</TR>
</TABLE>
</BODY>
</HTML>

Synes godt om

tjacob Juniormester

21. maj 2002 - 21:07 #1

Du har ikke defineret Conn nogen steder?
Du kan ikke lave et recordset uden at definere en connection.

Synes godt om

dk_akj Nybegynder

21. maj 2002 - 21:09 #2

Prøv lige at indsætte dette i koden, lige inden du går igang med sqldelen.
Set Conn = Server.Createobject("ADODB.Connection")

Synes godt om

eklander Nybegynder

21. maj 2002 - 21:13 #3

det har jeg i include filen....

Synes godt om

dk_akj Nybegynder

21. maj 2002 - 21:18 #4

OK - så prøv, midlertidigt at erstatte din include i toppen med:
Set Conn = Server.Createobject("ADODB.Connection")

Så bliver det noget lettere at finde hvilken linie den fejler i.

akj

Synes godt om

dk_akj Nybegynder

21. maj 2002 - 21:23 #5

Jeg ved ikke om det betyder noget men alle mine includes skrives sådan:
 altså med en # foran include, det har du ikke.

Synes godt om

cotus Nybegynder

21. maj 2002 - 21:25 #6

giver bare en kommentar!

/cotus

Synes godt om

tjacob Juniormester

21. maj 2002 - 21:28 #7

Under alle omstændigheder er din SQL-syntaks OK, så det MÅ være din forbindelse der fejler.

Synes godt om

cotus Nybegynder

21. maj 2002 - 21:29 #8

Kan vi ikke lige få code_lib.asp at se?

/cotus

Synes godt om

eklander Nybegynder

21. maj 2002 - 21:36 #9

nu når jeg har fået rettet min include fejl (ups) så skriver den:

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/medie-projekt/member.asp, line 63

Synes godt om

cotus Nybegynder

21. maj 2002 - 21:37 #10

Og linie 63 er...?

/cotus

Synes godt om

eklander Nybegynder

21. maj 2002 - 21:38 #11

dette er min code_lib:

<%
set Conn = Server.createobject("adodb.connection")
conn.Open "DBQ="& Server.MapPath(".") &"/projekt.mdb; DefaultDir=DBQ="& Server.MapPath("/") &";Driver={Microsoft Access Driver (*.mdb)};"

Response.Buffer = True

REM Diverse funktioner start
Function DatoVis(dato)
maned = Array(,"januar", "februar", "marts", "april", "maj", "juni", "juli", "august","september", "oktober", "november", "devember")
ugedag = Array(,"Mandag", "Tirsdag", "Onsdag", "Torsdag", "Fredag", "Lørdag", "Søndag")
DatoVis = ugedag(Weekday(dato,2)) &" d. "& Day(dato)&". "& maned(month(dato)) &" "& Year(dato)
End Function

Function checklogin(email,password)
set tjek = Conn.Execute("SELECT user_id FROM users WHERE user_email = '"& email &"' AND user_password = '"& password &"'")
If tjek.EOF THEN
Response.Write "Bruger ikke fundet"
Else
Session("mail_login") = tjek("user_id")
Response.Redirect("logon.asp")
End If
End Function

Function sendmail(modtager, overskrift, body)
overskrifttjek = overskrift
bodytjek = body
If overskrifttjek = "" Then overskrifttjek = " "
If bodytjek = "" Then bodytjek = " "
SQL = "INSERT INTO mails (mail_owner, mail_from, mail_subject, mail_body) VALUES ("& modtager &","& Session("mail_login") &", '"& overskrifttjek &"', '"& Replace(bodytjek, VbCrLf,"<BR>") &"')"
Conn.Execute(SQL)
Response.Redirect("inbox.asp")
End function

Function deletemail(mailid,ref_url)
If mailid = "" Then Response.Redirect(Right(ref_url,Len(ref_url)-1))
mails = Split(mailid,",",-1,1)
For a = 0 To Ubound(mails)
Conn.ExeCute("UPDATE mails SET mail_deleted = True WHERE mail_id = "& mails(a) &" AND mail_owner = "& Session("mail_login") &"")
Next
Response.Redirect(Right(ref_url,Len(ref_url)-1))
End Function

function status(user_id)
Set name = Conn.Execute("SELECT user_status FROM users WHERE user_id = "& Session("mail_login") &"")
status = name("user_status")
End function

function mail(user_id)
Set name = Conn.Execute("SELECT user_email FROM users WHERE user_id = "& Session("mail_login") &"")
mail = name("user_email")
End function

function password(user_id)
Set name = Conn.Execute("SELECT user_password FROM users WHERE user_id = "& Session("mail_login") &"")
password = name("user_password")
End function

Function username(user_id)
Set uname = Conn.ExeCute("SELECT user_name FROM users WHERE user_id = "& Session("mail_login") &"")
username = uname("user_name")
End Function

Function SessionTjek()
If Not Session("mail_login") > 0 Then Response.Redirect("login.asp")
End Function

Function sqlreplace(streng)
sqlreplace = Replace(streng,"'","''")
End Function
REM Diverse funktioner slut
%>

Synes godt om

cotus Nybegynder

21. maj 2002 - 21:40 #12

Linie 63? Husk ALTID at skrive linien, der er fejl i - eller gør det, det med svært!

/cotus

Synes godt om

eklander Nybegynder

21. maj 2002 - 21:41 #13

dette er linie 63: Response.Write rs("user_navn")

Synes godt om

cotus Nybegynder

21. maj 2002 - 21:44 #14

Er der nogen kolonne i din tabel der hedder user_navn? For den siger jo, at den ikke kan finde det item!?

/cotus

Synes godt om

dk_akj Nybegynder

21. maj 2002 - 21:49 #15

Jeg gætter på den hedder user_name :o)

Akj

Synes godt om

cotus Nybegynder

21. maj 2002 - 21:51 #16

Ja, user_navn lyder lidt forkert?

/cotus

Synes godt om

eklander Nybegynder

21. maj 2002 - 21:56 #17

lol... du har vist ret....

Synes godt om

eklander Nybegynder

21. maj 2002 - 22:12 #18

nu virker det.... :)

Synes godt om

dk_akj Nybegynder

21. maj 2002 - 22:14 #19

Fint, det er ikke altid fejlene er så store som de ser ud til.

Akj

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS