Problem med lagring af data i database!

Hejsa

Jeg får følgende fejl når jeg prøver at køre koden:

Type mismatch.

Jeg ved at fejlen ligger deri at jeg prøver at gemme tekst i et tal felt! Jeg skal have teksten ændret til det tilhørende tal. Hvordan gør jeg det?

I min database har jeg følgende tabeller:
Fagseminar (Hvor i jeg har en kolonne der hedder FagseminarId og Fagseminar)
Tilmeldte

Den skal lagre informationerne i tilmeldte. Jeg skal altså bare have hjælpe med at ændre så den ikke gemmer Fagseminar i Id men FagseminarId i Id! Håber det kan forstås!

Her er den kode der skal ændres så den viser FagseminarId og ikke Fagseminar! Men det skal jo være det fagseminarId der tilhøre Fagseminar!

<%
Set Conn = Server.CreateObject("ADODB.Connection")
        Set Rs = Server.CreateObject("ADODB.Recordset")
        'Modify and use this connection if your database is in your database directory
        'Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=Fagseminar.mdb"
        Conn.Open "DBQ=" & Server.Mappath("Fagseminar.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"

SQL = "SELECT Fagseminar, FagseminarId, Pris, Dato, Tid, Information, Programm from Fagseminar where Fagseminar='" & request.querystring("Fagseminar") & "'"
rs.Open SQL, Conn

For x = 1 to 10
    If rs.eof then
        Exit For
    Else

  Fagseminar = rs("Fagseminar")

Session("Fagseminar") = Fagseminar
%>