kan du hjælpe med en ting til ? *s'
sig hvis du vil have flere point.
har tilsyneladende et problem med min logik her :-)
det jeg gerne ville have skulle sker er at hvis et brugernavn er optaget kommer der en beddelse på skærmen i stedet for at jeg fortæller personen at han nu er oprettet. (det er det som sker nu)
hvordan kan jeg få på skærmen at brugernavn er optaget eller at personen er oprettet ?
koden ser nu ud som sådan og virker fint bortset fra fejlem med output :
<% OPTION EXPLICIT%>
<HTML><HEAD>
<LINK REL="StyleSheet" HREF="style.css" TYPE="text/css">
<TITLE>Dansk Rollespils Portal</TITLE>
</HEAD>
<BODY>
<TABLE class=tabel>
<TR Height=20px>
<TD COLSPAN="2" class=TD1>
<CENTER>| <a href="
http://agger/rollespil/noframe/21.asp">Ny Bruger</a> | <a href="
http://agger/rollespil/noframe/22.asp"> Glemt Password</a> | <A HREF="
http://agger/rollespil/noframe/23.asp">Rediger Profil</A> |</CENTER>
</TD>
</TR>
<TR class=TR1>
<TD class=TD2>
<span style="position:absolut;top:1%;width:100%; padding-top: 10px;">
<CENTER><A HREF="
http://agger/rollespil/noframe/1.asp">Hovedside</A></CENTER><BR> <CENTER><%
if (Session("loginOK") = "jada") then
Response.Write "<a href='
http://agger/rollespil/noframe/logout.asp'>Log Out </a>"
else
Response.Write "<a href='
http://agger/rollespil/noframe/2.asp'>Log In</a>"
End if %></CENTER><BR>
<CENTER><A HREF="
http://agger/rollespil/noframe/3.asp">Spil på net</A></CENTER><BR>
<CENTER><A HREF="
http://agger/rollespil/noframe/chat.asp">Chat</A></CENTER><BR> <CENTER><A HREF="
http://agger/rollespil/noframe/4.asp">Live</A></CENTER><BR> <CENTER><A HREF="
http://agger/rollespil/noframe/5.asp">Spil Kontakt</A></CENTER><BR>
<CENTER><A HREF="
http://agger/rollespil/noframe/6.asp">Opslagstavlen</A></CENTER><BR> <CENTER><A HREF="
http://agger/rollespil/noframe/7.asp">Eventyr</A></CENTER><BR> <CENTER><A HREF="
http://agger/rollespil/noframe/8.asp">Galleri</A></CENTER><BR> <CENTER><A HREF="
http://agger/rollespil/noframe/9.asp">Køb/Salg</A></CENTER><BR> <CENTER><A HREF="
http://agger/rollespil/noframe/begivenheder.asp">Begivenheder</A></CENTER><BR> <CENTER><A HREF="
http://agger/rollespil/noframe/links.asp">Links</A></CENTER><BR> <CENTER><a href='mailto:Cridonori@.tele.dk'>Webmaster</a></CENTER><br>
</span>
</TD>
<TD class=TD4>
<span style="position:absolut;top:1%;width:100%;" >
<%
Dim strForNavn, strEfterNavn, strBrugerNavn, strE_Mail, varKoen, strAlder, varFRegler, varErfaring, varRegelboeger, strPostNummer, strHest, fail, Connection
strForNavn = Request.Form("forNavn")
strEfterNavn = Request.Form("efterNavn")
strBrugerNavn = Request.Form("brugerNavn")
strE_Mail = Request.Form("e-mail")
varKoen = Request.Form("koen")
strAlder = Request.Form("alder")
varFRegler = Request.Form("fRegler")
varErfaring = Request.Form("erfaring")
varRegelboeger = Request.Form("regelboeger")
strPostNummer = Request.Form("postNr")
strHest = Request.Form("hest")
if request.form("forNavn") = "" then
fail = "Du skal indtaste et navn<br>"
end if
if request.form("efterNavn") = "" then
fail=fail & "Du skal indtaste dit efternavn<br>"
end if
if request.form("brugerNavn") = "" then
fail=fail & "Du skal indtaste et brugernavn.<br>"
end if
if request.form("e-mail") = "" or InStr(Request.Form("e-mail"),"@") = 0 or INSTR(Request.Form("e-mail"),"@@") <> 0 THEN
fail=fail & "Du har fejl i din email<br>"
end if
if request.form("password") <> Request.form("password1") or request.form("password") = "" or request.form("password1") = "" then
fail=fail & "Dit password stemmer ikke overens, eller du har glemt at skrive et password.<br>"
end if
if fail <> "" then
response.write "<CENTER><br><b>Du mangler at indtaste følgende:<br><br></b>" & fail &"<br><br></b><A HREF=java script:history.go(-1)>Tilbage</A><BR></CENTER>"
response.end
end if
%>
<%
'Tjek om form'en er send og så indsæt i databasen
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
Dim Conn, SQL, rs
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={mySql}; SERVER=localhost; UID=jesper; PWD=hansen; DATABASE=person;"
SQL = "SELECT bnavn FROM person WHERE bnavn = '"& Request.form("brugerNavn")&"'"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={mySql}; SERVER=localhost; UID=jesper; PWD=hansen; DATABASE=person;"
set rs = Conn.Execute(SQL)
if rs.EOF then
SQL = "INSERT INTO person (fnavn, enavn, bnavn, email, password, alder, koen, postnr, erfaring, beskrivelse)VALUES ('"&Request.form("forNavn")&"', '"& Request.form("efterNavn")&"', '"& Request.form("brugerNavn")&"', '"& Request.form("e-mail")&"', '"& Request.form("password")&"', ' " & Request.Form("alder") & "', '"& Request.Form("koen") &" ', '" & Request.Form("postNr") &"', '" & Request.Form("erfaring") & "', ' " & Request.Form("hest") &" ')"
else
Response.write "<CENTER><br>Brugernavnet / password som du ønsker er desværre optaget, prøv venligst igen.<BR></CENTER>"
end if
Conn.Execute(SQL)
conn.close
set conn = nothing
End if
%>
<H3><P>
<CENTER><P>Vi har nu oprette dig som en <%=strAlder%> årig <%=varKoen%> Ved navn <H3 class="test"><%=strForNavn%></H3> <%=strEfterNavn%> som der kan skrives til på <%=strE_Mail%> <BR>
<P>Dit foretrukne spil er <%=varFRegler%> hvor dit erfaringsniavu er: <% =varErfaring %> og hvor din bogsamling er lig med: <%= varRegelboeger %> Du bor i <% =strPostNummer %> og har brugernavnet <%= strBrugernavn %><P><P>
Du vil gerne have spam omkring:<BR>
<%
if Request.QueryString("motri")="on" Then
Response.Write "Egne spil"
End If
%>
<%
if Request.QueryString("mon")="on" Then
Response.Write " Nyheder"
End If
%>
<%
if Request.QueryString("mosr")="on" Then
Response.Write "Og Spil reklamer"
End If
%><BR>
Og her er din præsentation:
<% = strHest %>
<BR>
Håber at du kommer til at hygge dig.
</CENTER></H3>
</SPAN>
</TD>
</TR>
<TR Height=30px>
<TD class=TD3>
<CENTER><A style="cursor:hand; color=yellow" onClick="this.style.behavior='url(#default#homepage)';this.setHomePage('
www.rollespil.net');">Gør Til Startside</a></CENTER>
</TD>
<TD><CENTER>| <a href="
http://agger/rollespil/noframe/1.html">Toppen af siden</a> |</CENTER></TD>
</TR>
</TABLE>
</BODY>
</HTML>
