Search

http://www.eksperten.dk/spm/62925

nu tror jeg godt jeg kan finde ud af det :)

eller nej, det hjælp ik...jeg har brug for dit hjælp nu igen :)

skal den bare finde en post.... ellers skal den finde flere poster som ligner hinanden..???

-Anders

den skal finde en ringetone...

http://www.web-zone.dk/ringetoner

den skal søg i ringetonerne ..

og ringetonernes tabelle hedder (ringetone), mens nokia, ericsson, siemens, tabel hedder (tilmobil)..

så man kunne søg kun i ericsson, og kun i nokia, også kunne man søg i alle tre på en gang...kan du gøre det ?

og hvor meget point vil du ha for det ??

sådan har jeg lavet en som søger i min database...

<HTML>
<HEAD>
<title>SøgeMaskinen</title>
</HEAD>
<BODY>

<form action=\"soeg.asp\" method=\"post\">
    <table>
        <tr><td><font face=verdana size=2>Søgeord:</font></td><td><input type=\"text\" name=\"soeg\"></td></tr>
        <tr><td></td><td><input type=\"submit\" name=\"submit\" value=\"Søg\">
    </table>
</form>

<%
If Request.Form(\"soeg\") <> \"\" then
    Set DB = Server.CreateObject(\"ADODB.Connection\")
    DBSti = \"DBQ=\" & Server.Mappath(\"arabisk.mdb\")
    DB.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBSti
    SQL = \"select * from Ringetoner where tilmobil like \'%\" & Request.Form(\"soeg\") & \"%\' or Navn like \'%\" & Request.Form(\"soeg\") & \"%\'\"
    Set rs = db.Execute (SQL)
    If not rs.eof then
        Response.Write \"<table>\"
        Response.Write \"<tr><td><font face=verdana size=3><b>Ringetones Navn</b></font></td><td width=30></td><td><font face=verdana size=3><b>Tryk Her</b></font></td></tr>\"
        Do until rs.eof
            tilmobil = rs(\"tilmobil\")
            Response.Write \"<tr><td><font face=verdana size=2>\" & rs(\"navn\") & \"</font></td><td width=30></td><td><font face=verdana size=2><a href=\'http://\" & url & \"\'>\" & url & \"</a></font></td></tr>\"
            rs.movenext
        Loop
        Response.Write \"</table>\"
    Else
        Response.Write \"<b>Der var intet der matchede din søgekriterier!</b>\"
    End if
End if


%>
</BODY>
</HTML>


men når jeg skifter det her:
<a href=\'http://\" & url & \"\'>\" & id & \"

med det her:
<a href=\'java script:se(\"<% = rs(\"id\") %>\",400,480)\' style=\"color: #000000\">

så viser den at der er FEJL !!!
Hvorfor gøre den det ???
Microsoft VBScript compilation error \'800a0408\'

Invalid character

/ringetoner/arabisk/soeg.asp, line 26

Response.Write \"<tr><td><font face=verdana size=2>\" & rs(\"navn\") & \"</font></td><td width=30></td><td><font face=verdana size=2><a href=\'java script:se(\"<% = rs(\"id\")
---------------------------------------------------------------------------------------------------------------------------------------------------------^

eller jeg bruge nu denne her:

<% Response.Buffer = True %>
<html><head>
<title>Søgeresultat</title>
</head><body>
<script language=javascript>
    function se(id,h,b) {
        window.open(\"popup.asp?id=\"+id,\"new\",
       
\"resizable=0,scrollbars=1,toolbar=0,location=0,menubar=0,status=0,width=\"+b+\",height=\"+h)
      }
</script>
<%
\' Henter værdien fra soeg.htm
strKeyword = Trim(Request.Form(\"Keyword\"))

If Len(strKeyword) = 0 Then
    \' Hvis der ikke er skrevet i feltet
    Response.Clear
    Response.Redirect(\"search.htm\")
Else
    \' Hvis der er skrevet i feltet
    strKeyword = Replace(strKeyword,\"\'\",\"\'\'\")
End If

\' Opbygger en dynamisk SQL streng
strSQL = \"SELECT Navn, Tilmobil, Setgange FROM ringetoner WHERE\"
strSQL = strSQL & \" (Navn LIKE \'%\" & strKeyword & \"%\')\"

\' Skaber DSNLess forbindelse til DBen
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"XXXX\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN

\' Skaber et recordset udfra SQL strengen
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
    \' Hvis der er fundet poster på søgningen
    Response.Write \"<p>Søgeresultat</p>\"
    Response.Write \"<table border=1>\"
    Response.Write \"<tr><th>Navn</th><th>Telefon</th><th>Hits</th></tr>\"
    Do While Not rs.EOF
        Response.Write \"<tr><td>\" & rs(\"navn\") & \"</td>\"
        Response.Write \"<td>\" & rs(\"tilmobil\") & \"</td>\"
        Response.Write \"<td>\" & rs(\"setgange\") & \"</td></tr>\"
        rs.MoveNext
    Loop
    Response.Write \"</table>\"
Else
    \' Hvis der ikke er fundet poster på søgningen
    Response.Write \"<p>Der er ikke fundet noget på denne søgning</p>\"
End If

\' Rydder op efter os
myConn.Close
Set myConn = Nothing
%>

</body></html>

når jeg lægger:
<a href=\'java script:se(\"<% = rs(\"id\") %>
efter den her:
Response.Write \"<tr><td>\" & rs(\"navn\") & \"</td>\"

så viser den også den samme FEJL ???

       

der må sku nogen som kender fejlen ??

????

?????

ingen .)