17. november 2003 - 09:42Der er
9 kommentarer og 1 løsning
Ved gem/ikke gem vidre send side?
Jeg har denne gam formel. Jeg vil gerne have den til at sende brugen til en side hvis det har gemt data ellers hvis den ikke kunne gemme data.
I bunden har jeg dette: Response.Write "Du er nu tilmeldt." når den skriver dette ville jeg gerne have at den sende brugeren til forsiden.
Jeg har så denne kode: Response.Write "Der er fejl i indtasningen eller systemet. Når den melder dette ville jeg gerne have at brugeren bliver sendt tilbare hvor de kom fra med mulighed for rette deres data.
Sql = "Select Count(*) as Found from mailingliste where (email = '" & Request("email") & "')" Set Login = conn.Execute(Sql) if Login("Found") = 1 then Response.Write "Der er fejl i indtasningen eller systemet. Prøv igen." end if
if instr(request.form("email"), "@") = 0 then Response.Write "Der er fejl i indtasningen eller systemet. Prøv igen." end if
if instr(request.form("email"), ".") = 0 then Response.Write "Der er fejl i indtasningen eller systemet. Prøv igen." end if
navn = Request.Form("navn") email = Request.Form("email")
if navn = "" then Response.Write "Der er fejl i indtasningen eller systemet. Prøv igen." end if
if email = "" then Response.Write "Der er fejl i indtasningen eller systemet. Prøv igen." end if
conn.Execute("INSERT INTO mailingliste (navn, email) VALUES ('" & navn & "', '" & email & "')") conn.Close set conn = nothing Response.Write "Du er nu tilmeldt." %>
Response.Write "Der er fejl i indtasningen eller systemet. Prøv igen."
Eller skal det ind efter:
navn = Request.Form("navn") email = Request.Form("email") og hvad med alle Response.Write "Der er fejl i indtasningen eller systemet. Prøv igen." hvis de ikke skal være det
Sql = "Select Count(*) as Found from mailingliste where ([email] = '" & Request("email") & "')" Set Login = conn.Execute(Sql) if Login("Found") = 1 then Response.Write "Der er fejl i indtasningen eller systemet. Prøv igen." end if
if instr(request.form("email"), "@") = 0 then Response.Write "Der er fejl i indtasningen eller systemet. Prøv igen." end if
if instr(request.form("email"), ".") = 0 then Response.Write "Der er fejl i indtasningen eller systemet. Prøv igen." end if
navn = Request.Form("navn") email = Request.Form("email")
if navn = "" then Response.Write "Der er fejl i indtasningen eller systemet. Prøv igen." end if
if email = "" then Response.Write "Der er fejl i indtasningen eller systemet. Prøv igen." end if
conn.Execute("INSERT INTO mailingliste ([navn], [email]) VALUES ('" & navn & "', '" & email & "')") conn.Close set conn = nothing Response.Write "Du er nu tilmeldt." %>
ja men denne form sender til en gem form og det er denne, dem ser om data er ok eller ikke. Hvis den så ser at alle data er ok og gemmer det i databasen skal den vise "Du er nu tilmeldt." og send brugen til forsiden.
Hvis den finder en fejl og viser "Der er fejl i indtasningen eller systemet. Prøv igen." skal den derefter sende brugeren tilbage hvor de kom fra.
Ved begge 2 skal den vise "Der er fejl i indtasningen eller systemet. Prøv igen." eller "Du er nu tilmeldt." i et stykke tid og så sende brugeren vidre.
Sql = "Select Count(*) as Found from mailingliste where (email = '" & Request("email") & "')" Set Login = conn.Execute(Sql)
navn = Request.Form("navn") email = Request.Form("email")
if Login("Found") = 1 OR instr(request.form("email"), "@") = 0 OR instr(request.form("email"), ".") = 0 OR navn = "" OR email = "" then Response.Write "Der er fejl i indtasningen eller systemet. <a href=""tilmelding.asp"">Prøv igen</a>" else
conn.Execute("INSERT INTO mailingliste (navn, email) VALUES ('" & navn & "', '" & email & "')") conn.Close set conn = nothing
response.write "Du er nu tilmeldt <a href=""forside.asp"">Gå til forsiden</a>" end if %>
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.