Lite avancerat!

Såhär vill jag!
När jag är inloggad på min sida så ska jag kunna göra saker son ingen annan kan.

<% If Session("username") = "user" AND Session("password") = "Pass" Then %>

Sådär kikar jag om jag är inloggad eller inte..

Nu kommer problemet..
När jag nu är inloggad och skall lägga till en person i en databas så får jag fel: Data type mismatch in criteria expression

strSQL = "INSERT INTO personal (FNamn, Enamn, Email, Tel, Ansvar ) VALUES " & "('" & Namn & "','" & Efternamn & "','" & Email & "','" & Tel & "','" & Ansvar & "')"
objConn.Execute(strSQL),,128

Jag tror att det har något att göra med mina IF satser eller nått men jag vet inte säkert..

<%
Dim strSQL, RS, objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("db/forum123.mdb")
strSQL = "SELECT * FROM personal ORDER BY id DESC"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open strSQL, objConn

If Request.QueryString("do") = "add" Then 
  If request.QueryString("gora") = "personalspara" Then

Function FixSql(str)
    str = Trim(str)
    str = Replace(str, "'", "''")
    FixSql = str
End Function

Ansvar = FixSql(Request.Form("ansvar"))
Namn = FixSql(Request.Form("namn"))
Efternamn = FixSql(Request.Form("efternamn"))
Email = FixSql(Request.Form("email"))
Tel = FixSql(Request.Form("tel"))

    If RS.EOF Then
strSQL = "INSERT INTO personal (FNamn, Enamn, Email, Tel, Ansvar ) VALUES " & "('" & Namn & "','" & Efternamn & "','" & Email & "','" & Tel & "'," & Ansvar & "')"
  objConn.Execute(strSQL),,128
'response.write "SQL: " & strSQL
'response.end
 
    Else

strSQL = "INSERT INTO personal (FNamn, Enamn, Email, Tel, Ansvar ) VALUES " & "('" & Namn & "','" & Efternamn & "','" & Email & "','" & Tel & "','" & Ansvar & "')"
objConn.Execute(strSQL),,128
'response.write "SQL: " & strSQL
'response.end

Response.Redirect("index.asp?meny=redaktionen")

    End If
  End If
%>

Jag fick hjälp och löste problemet!
Jag ändrade Tel i databasen till Text och inte Nummer :D

Får leta efter alert i javascript, även när du uppdaterar select.

Postar litet förslag på det vi pratade om:

<FORM NAME=""><SELECT valign="middle" NAME="snabbval" SIZE="1" onChange="update_frames(this.form);">
<OPTION VALUE="" SELECTED>Välj Något:</OPTION>

<%

Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & Server.MapPath("db.mdb")

SQL = "SELECT DISTINCT Något FROM tbl_ ORDER BY Något ASC"

rs.Open SQL, MinCon, 3, 3

%>  
<% DO UNTIL rs.EOF %>
<OPTION VALUE="default.asp?<%=rs("Något")%>"><%=rs("Något")%></OPTION>
<%
x = x+1
rs.MoveNext
Loop
rs.Close
    
%>   	
</SELECT>
</FORM>