set rs=conn.execute("select * from DinTabel where alias='"& request.form("alias") &"'") if rs.eof then 'alias findes ikke conn.execute("insert into DinTabel(alias) values('"& request.form("alias") &"')") else 'alias findes. Lav en fejlkode... Error = 1 response.redirect("tilsiden.asp&fejl=1") end if
Det kan godt være det er sværere end som så... prøver lige at forklare... tilføje det jeg har...
Altså jeg har følgende form:
<-- har adressen: ?side=profil=lundmail -->
<form method="post" action="sider/profil.asp?profil=mailkontrol"> <table class="t98"> <tr> <td colspan="2" class="title" align="center">Lundmail - kontrol</td> </tr> <tr> <td colspan="2"> <span class="fejl"> <% if fejl = "" then %> <% end if %> <% if fejl = "14" then %> Skriv den ønskede mail alias! <% end if %> <% if fejl = "15" then %> Vælg et andet alias, det valgt er allerede i brug! <% end if %> <% if fejl = "16" then %> <% end if %> <% if fejl = "17" then %> <% end if %> <% if fejl = "18" then %> <% end if %> <% if fejl = "19" then %> Din lundmail er godkendt - du kan nu ansøge om at få den! <% end if %> </span> </td> </tr> <tr> <td>Alias</td> <td><input type="text" name="lundmail"></td> </tr> <tr> <td>Mailadresse</td> <td><%=rs("lundmail")%>@net-lunden.dk</td> </tr> <tr> <td bordercolor="#ffffff"> </td> <td bordercolor="#ffffff"><input type="submit" value="Opdater" id=submit1 name="update"></td> </tr> </table> </form>
<% if profil = "mailkontrol" then If Request.Form("submit") <> "" then
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb") set rs=conn.execute("select * from bruger where lundmail='"& request.form("lundmail") &"'") if rs.eof then 'alias findes ikke conn.execute("insert into bruger(lundmail) values('"& request.form("lundmail") &"') where id = '" & session("netid") &"'") response.redirect("?side=profil&profil=lundmail&fejl=19") else 'alias findes. Lav en fejlkode... Error = 15 response.redirect("?side=profil&profil=lundmail&fejl=15") 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.