Indsætte data i access database

Den her henter 2 felter fra en form, Tlf og Email.
Der tjekkes i databasen, som jeg har kaldt access.mdb, i tabellen ved navn, \'Medlemmer\' for; om tlfnr. allerede eksisterer. Hvis ikke, tilføjes den ny post.

Derefter redirectes til anden side, hvor der tages en variable med om posten blev oprettet eller ej.

Stien til databasen skal du selvfølgelig lige editere, så den passer på din server.


<%

Tlf= Trim(Request.Form(\"Tlf\"))
Email = Trim(Request.Form(\"Email\"))

set conn = server.createobject(\"ADODB.connection\")
conn.Open \"DBQ=F:\\home\\sti_til_database\\access.mdb;DefaultDir=F:\\home\\sti_til_database\\;Driver={Microsoft Access Driver (*.mdb)}\"

Set rs = Server.CreateObject(\"ADODB.Recordset\")

Set Check=conn.Execute(\"Select * From medlemmer Where Tlf = \'\" & Tlf & \"\'\")

RS.Open \"medlemmer\",Conn,3,3

If Check.EOF Then
RS.AddNew

Rs(\"Email\") = Password
Rs(\"Tlf\") = Tlf
RS.Update

Set Rs = Nothing

Response.Redirect(\"nyt_medlem.asp?Tlf=OK\")
Else
Response.Redirect(\"addannonce.asp?Tlf=false&BadNummer=\" & Tlf & \"\")

End if
RS.Close
%>

/D!ktator

F*ck, der skal stå:

Rs(\"Email\") = Email

Glimrende indlæg. Det bragte mig et godt stykke af vejen. Jeg får dog en fejlmeddelelse i linje 19 med  RS.Open \"medlemmer\",Conn,3,3
Microsoft OLE DB Provider for ODBC Drivers fejl \'80040e07\'

[Microsoft][ODBC Microsoft Access-driver] Datatyperne stemmer ikke overens i kriterieudtrykket.

/AtFreeWeb/test/new.asp, linje 19

Hvad er der mon galt?

Har du en tabel ved navn: \'medlemmer\', 2 kolonner: \'Email, Tlf\' ??

Tak for din hurtige reaktion. Ja, jeg har en tabel,der hedder \"medlemmer\". Første gang jeg kører min formular skriver den godt nok ned i databasen, men efterlader en fejlmeddelelse ved
Response.Redirect(\"nyt_medlem.asp?Tlf=OK\") hvor den skriver følgende:
Response-objekt fejl \'ASP 0156 : 80004005\'

Headerfejl

/AtFreeWeb/test/new.asp, linje 32

HTTP-headerne skrives allerede til klientbrowseren. Ændringer af HTTP-headers skal foretages, inden sideindholdet skrives.

Når jeg så forsøger at taste en ny post med mail og tlf ind melder programmet fejlen i linie 19.

Håber at du fortsat har mod på at hjælpe mig!

Response.Redirect(\"nyt_medlem.asp?Tlf=OK\") , laves om til den side hvor brugeren skal sendes hen, når posten er opdateret. Det kunne være den side hvor man indskriver sin form.

F.eks.
Response.Redirect(\"din_form.asp?Tlf=OK\")


\'?Tlf=OK\' er en variable der sendes med, som du så kan hente på den ankomne side.

F.eks.

<% IF Request.QueryString(\"Tlf\")=\"OK\" THEN %>Posten er opdateret i databasen<% END IF %>

Den anden fejl skyldtes vist at db ikke bliver lukket ordentligt!?  -- prøv at flytte \'RS.Close
\' op under \' Set Rs = Nothing \' og se om det hjælper  ;-)

Jeg er ked af det, men det afhjælper ikke fejlen. Der kommer de samme fejlmeddelelser. Skal jeg prøve at fremsende filerne med mail?

Ja, prøv det .. admin@diktator.dk

Tak, nu virker alt som det skal. For sådan en fremragende support giver jeg gladelig 100 point!

Takker ;-)