Testade en skola på CCS hemsida men får det inte att funka, någon med öga som ser felet i koden? Sökningen skall söka ett namn ur en databas som ligger i samma katalog som filerna. Resultatet av sökningen blir just nu en tom ram. Om du inte "ser felet"?, Gå in i internet explorer, verktyg, internetalternativ, avancerat och långt ner bocka bort "visa egna felmeddelande". Sen kör du sidan igen och då skall du få ett detaljerat fel från ASP motorn - ge oss även det felmeddelandet så underlättar det. <code> Sökning i databas
**********************************************
<HTML>
<%@ LANGUAGE="VBSCRIPT" %>
<FORM METHOD="POST" ACTION="sok.asp">
Ange sökord <br>
<INPUT TYPE="text" SIZE="30" NAME="sokord">
<INPUT TYPE="submit" VALUE="Sök">
</FORM>
</HTML>
**********************************************
<HTML>
<%@ LANGUAGE="VBSCRIPT" %>
<%
Set Connect = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("CCS.mdb")
SQL = "Select * from Kompisar Where Namn LIKE '%" & Request.Form("sokord")& "%'"
Set RS=Connect.Execute (SQL)
Do Until RS.EOF
%>
<TABLE border='2' width='500'><tr><td>
<%=RS("Namn")%><br>
<%=RS("Adress")%><br>
<%=RS("Telefon")%><br><br><br>
</td></tr>
</TABLE>
<%
RS.MoveNext
LOOP
RS.Close
Connect.Close
%>
</HTML>
*********************************************Sv: Sökning i databas
Peta in lite felsökning också.
<code>
sSearch = TRIM(Request.Form("sokord")) ' Rensar bort överflödiga mellanslag
IF sSearch = "" THEN ' fältet är tomt
Response.redirect "sida-asp" ' skicka tillbaka till söksidan
ELSE
SQL = "Select * from Kompisar Where Namn LIKE '%" & sSearch & "%'"
Set RS=Connect.Execute (SQL)
T ex: Din SQL sats, kör den.
IF RS.EOF THEN ' Vi fick ingen träff
Response.write "Ingen träff"
ELSE
' Loopa ut din kod
END IF
END IF
</code>
Kanske inte all kod som behövs, men en pekning i rätt riktning
//Anna-KarinSv: Sökning i databas
Sv: Sökning i databas
Microsoft VBScript runtime error '800a01a8'
Object required: ''
/apoah/sok.asp, line 6
</code>
Detta är felet som jag får och således denna rad.
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("CCS.mdb")
CCS.mdb ligger i roten tillsammans med sok.asp
Hittar den inte databasen eller?
M.v.h. NickeSv: Sökning i databas
Den hittar inte ditt objekt som heter Conn, eftersom du har döpt din koppling till Connection.
/Anna-Karin