---
title: "Lite avancerat!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/117002-lite-avancerat"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "webbSAJTEN"
published: "2004-11-29T22:06:43.000Z"
updated: "2004-11-29T23:26:05.000Z"
replies: 2
views: 237
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/117002-lite-avancerat"
---

# Lite avancerat!

## #1 — webbSAJTEN, 2004-11-29T22:06Z

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
%>
```

Permalänk: https://www.webforum.nu/p/117002

## #2 — webbSAJTEN, 2004-11-29T23:00Z

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

Permalänk: https://www.webforum.nu/p/1497423

## #3 — SannyW, 2004-11-29T23:26Z

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>
```

Permalänk: https://www.webforum.nu/p/1497426

---

Tråden på webben: https://www.webforum.nu/amne/asp/117002-lite-avancerat