Oprette ny annonce ud fra oprettet bruger
Hej eksperterJeg har følgende kode, som uden problemer oprettet en ny bruger i databasen:
<%
fl = 0
navn = Request.form ("Navn")
Pass = Request.form ("password")
if Pass = "" Then
Response.Redirect "brugerfejlmelding.asp"
End if
Adresse = Request.form ("Adresse")
Post = Request.form ("post")
Telefon = Request.form ("Telefon")
Telefon2 = Request.form ("Telefon2")
Email = Request.form ("Email")
Bnavn = Request.form ("Bnavn")
if Bnavn = "" Then
Response.Redirect "brugerfejlmelding.asp"
End if
Gpass = Request.form ("gpass")
hp = Request.form ("hp")
Tp = "B"
if pass <> gpass then
Session("navn") = Navn
Session("pass") = pass
Session("Adresse") = Adresse
Session("Post") = Post
Session("Telefon") = Telefon
Session("Telefon2") = Telefon2
Session("Bnavn") = Bnavn
Session("email") = Email
Session("hp") = hp
Session("gpass")
Session("logon") = 1
Response.Redirect "opretsombruger.asp"
End if
Sql = "INSERT INTO UDLEJER(navn, [password], [type], Adresse, post, telefon, telefon2, email, Hjemmeside, bnavn)"
SQL = SQL & "Values("
SQL = SQL & "'" & Navn & "',"
SQL = SQL & "'" & Pass & "',"
SQL = SQL & "'" & Tp & "',"
SQL = SQL & "'" & Adresse &"',"
SQL = SQL & "'" & Post & "',"
SQL = SQL & "'" & Telefon & "',"
SQL = SQL & "'" & Telefon2 & "',"
SQL = SQL & "'" & Email & "',"
SQL = SQL & "'" & hp & "',"
SQL = SQL & "'" & Bnavn & "'"
SQL = SQL & ")"
Set RS = conn.execute(SQL)
Session("navn") = Bnavn
Response.Redirect "opretannonce2.asp"
%>
Mit problem er nu, at jeg simpelthen ikke kan få oprettet en annonce til den nye bruger.
Siden "opretannonce2.asp" indeholder følgende:
<%
Ejer = session ("Navn")
Amt = "Nord"
Sql = "INSERT INTO BOLIG(Ejer, Amt)"
SQL = SQL & "Values("
SQL = SQL & "'" & Ejer & "',"
SQL = SQL & "'" & Amt & "',"
SQL = SQL & ")"
Set RS = conn.execute(SQL)
Response.Redirect "hoveropret.asp"
%>
Tabellen "BOLIG" indeholder kun "Ejer" og "Amt". Mangler jeg en identifikation mellem de 2 sider? Eller er der problemer med at oprette et Id-nr. i "BOLIG"? Første felt i "BOLIG" er "Id"-autonummerering (access)?
På forhånd tak.
