Tjenare! Jag vill ha en snabbsök genom datasen! Så här ser felet ut:
ADODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/snabb_resultat.asp, line 39
Här e koden! Ni får tycka att den e knasig mm!Ni får om ni vill Ändra den så den fungerar bra!
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
val = Request.Form("val") ' Hämtar valet från formuläret
If val = "namn" Then
SQL = "Select * From users Where firstnamn Like '%%" & Request.Form("namn") & "%%'"
ElseIf val = "username" Then
SQL = "Select * From users Where username Like '%%" & Request.Form("username") & "%%'"
ElseIf val = "epost" Then
SQL = "Select * From users Where email Like '%%" & Request.Form("epost") & "%%'"
ElseIf val = "alla" Then
SQL = "Select * From users"
end if
sortera = Request.Form("sortera") ' Hämtar hur vi vill sortera resultatet
If sortera = "bokstavs" Then
SQL = SQL & " Order By username"
End If
Rs.Open Connect, adOpenStatic, adLockOptimistic
%>
Sen för att skriva ut det längre ner är det bara <%=Rs("poang")%> åsså vidare!
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Connect.Open "Här borde det ligga något. Som LarsG påpekade"
val = Request.Form("val") ' Hämtar valet från formuläret
Select Case val
Case "namn"
SQL = "Select * From users Where firstnamn Like '%" & Request.Form("namn") & "%'"
Case "username"
SQL = "Select * From users Where username Like '%" & Request.Form("username") & "%'"
Case "epost"
SQL = "Select * From users Where email Like '%" & Request.Form("epost") & "%'"
Case "alla"
SQL = "Select * From users"
End Select
sortera = Request.Form("sortera") ' Hämtar hur vi vill sortera resultatet
If sortera = "bokstavs" Then
SQL = SQL & " Order By username"
End If
Rs.Open Connect, 3, 3
%>
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified
/snabb_resultat.asp, line 24
<%
Option Explicit
Dim sql, username, namn, epost, rs, se, val, sortera, connect, adOpenStatic, adLockOptimistic, rsUser, x, RecSet
username = Request.Cookies("username")
if username = "" then
Response.Redirect("nologin.asp?page=snabb.asp")
end if
%>
<%
se=request("se")
if se="" then
se=username
end if
%>
<!--#include file="conn.asp"-->
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
val = Request.Form("val") ' Hämtar valet från formuläret
Select Case val
Case "namn"
SQL = "Select * From users Where firstnamn Like '%" & Request.Form("namn") & "%'"
Case "username"
SQL = "Select * From users Where username Like '%" & Request.Form("username") & "%'"
Case "epost"
SQL = "Select * From users Where email Like '%" & Request.Form("epost") & "%'"
Case "alla"
SQL = "Select * From users"
End Select
sortera = Request.Form("sortera") ' Hämtar hur vi vill sortera resultatet
If sortera = "bokstavs" Then
SQL = SQL & " Order By username"
End If
Rs.Open SQL, Conn, adOpenStatic, adLockOptimistic
%>
Men nu får jag samma fel men på rad 42 den sista ovanför %>!
