Problemer med 2 form felter

Du kunne nok være dit serversite som lavede rav i den (det virker som om begge forme bliver submittet), men prøv at give dine forme to forskellige navne. name="form1" og name="form2"

/Casper www.enter-s.dk

vi bliver nød til at se din kode

Jeg prøvede lige linket og trykkede på opret. Der sker ikke andet end det der skal ske:

Der var fejl i dine indtastninger

Og det er jo klart når jeg ikke skrev noget. Ellers ser jeg ingen fejl.

jo den skriver det både ved opret og oppe i højre hjørne ved login

Der har nok bare været problemer med serveren da du lavede det. Jeg kan ikke se nogen fejl. Dermed ikke sagt at der ikke er nogen, men der kommer ikke nogen ved at gøre som du skriver, bortset fra an den ikke vil godkende at man ikke skriver noget.

Oppe til højre skriver den:
Du har ikke udfyldt felterne
så den skriver det vel bare fordi der er fejl begge steder :-)

Når du trykker opret på denne side

http://www.cygnet.dk/secondfloor/tilmeld.asp

Kommer der så ikke disse to beskeder med orange ?

Der var fejl i dine indtastninger

Du har ikke udfyldt felterne

/cygnet

kan vi ikke se dine koder ?

oz1cbk > jo - men er det ikke muligt lige som at dele de to forms op ?

F.eks. som casper skriver ? Nu har jeg givet dem hvert sit navn - opret og login

Men så skal jeg vil ind og rette den linie

if Request.ServerVariables("REQUEST_METHOD") = "POST" then

Til noget med hvor den ser over hvilket navn formen har - er der nogle af jer der har styr på ASP ? Eller skal jeg oprette et nyg spørgsmål ?

mranders >

Jo det kan du da - hvad vil du gerne vide ?

Jeg kan vel ikke poste 500 linies kode her...

jeg kan godt ASP

men det er nemmere at lave et javascript der med det samme laver en alert box hvis felterne ikke er udfyldt

Men tilmeld.asp

  <%
if session("brugernavn") <> "" then
Response.Redirect("velkommen.asp")
else

Response.Buffer = True

'Åbner connection til databasen
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db.mdb")
                   
'Hvis brugeren har submittet formularen
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
                               
'Tjecker om felterne er udfyld
if (Request.Form("brugernavn") <> "" AND Request.Form("adgangskode") <> "" AND Request.Form("email") <> "" AND request.Form("rigtig_navn") <> "") then

'Tjecker om adgangskoderne er ens
if (Request.Form("adgangskode1") = Request.Form("adgangskode2")) then
                                   
'Tilføjer brugeren til databasen
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "select * from bruger where brugernavn = '" & Request("brugernavn") & "'"
rs.Open strsql, conn, 1, 3
                                       
'Tjecker om brugernavnet er optaget
if rs.eof or rs.BOF then
                                               
'Tilføjer brugeren til databasen og sender ham/hende til login siden
rs.AddNew
rs("brugernavn") = Server.HTMLEncode(Request("brugernavn"))
rs("brugerkode") = Server.HTMLEncode(Request("adgangskode"))
rs("brugeralder") = Server.HTMLEncode(Request("alder"))
rs("brugerkon") = Server.HTMLEncode(Request("kon"))
rs("brugeremail") = Server.HTMLEncode(Request("email"))
rs("brugernummer") = Server.HTMLEncode(Request("nummer"))
rs("brugerselskab") = Server.HTMLEncode(Request("selskab"))
rs("brugerTekst") = Server.HTMLEncode(Request("fri_tekst"))
rs("brugerRigtignavn") = Server.HTMLEncode(Request("rigtig_navn"))
rs("godkendt") = Server.HTMLEncode(Request("godkendt"))
rs.update

Response.Redirect("default.asp")
else
'Skriver at brugernavnet er optaget
Response.Write("<b><span class='tekst_indhold_link'>Brugernavnet er optaget</span></b><p>")                                   
end if

rs.Close
set rs = nothing                       
else
Response.Write("<b><span class='tekst_indhold_link'>Adgangskoderner er ikke ens</span></b><p>")
end if

else

Response.Write("<b><span class='tekst_indhold_link'>Der var fejl i dine indtastninger</span></b><p>")
end if
                               
end if
%>
                          <span class="tekst_indhold">Alle felter med <b>fed</b>
                          skrift skal udfyldes for at oprette brugeren: </span></p>
                        <form method="post" action="tilmeld.asp" name="opret">
                          <input type="hidden" value="nej" name="godkendt">
                          <table border="0" width="362">
                            <tr>
                              <td class="tekst_indhold" width="110" align="left" valign="top"><b><font class="small">Clubnavn</font></b></td>
                              <td bordercolor="#ffffff" width="242">
                                <input type="text" name="brugernavn" value="<%=Request("brugernavn")%>" class="tekst_felter" size="40">
                              </td>
                            </tr>
                            <tr>
                              <td class="tekst_indhold" width="110" align="left" valign="top"><b><font class="small">Adgangskode</font></b></td>
                              <td bordercolor="#ffffff" width="242">
                                <input type="password" name="adgangskode" class="tekst_felter" size="40">
                              </td>
                            </tr>
                            <tr>
                              <td class="tekst_indhold" width="110" align="left" valign="top"><b><font class="small">Adgangskode
                                igen </font></b></td>
                              <td bordercolor="#ffffff" width="242">
                                <input type="password" name="adgangskode2" class="tekst_felter" size="40">
                              </td>
                            </tr>
                            <tr>
                              <td class="tekst_indhold" width="110" align="left" valign="top"><b><font class="small">Email</font></b></td>
                              <td bordercolor="#ffffff" width="242">
                                <input type="text" name="email" value="<%=Request("email")%>" class="tekst_felter" size="40">
                              </td>
                            </tr>
                            <tr>
                              <td class="tekst_indhold" width="110" align="left" valign="top"><b>Rigtigt
                                navn</b></td>
                              <td bordercolor="#ffffff" width="242">
                                <input type="text" name="rigtig_navn" value="<%=Request("Rigtig_navn")%>" class="tekst_felter" size="40">
                              </td>
                            </tr>
                            <tr>
                              <td class="tekst_indhold" width="110" align="left" valign="top">K&oslash;n</td>
                              <td bordercolor="#ffffff" width="242">
<% If Request.Form("Kon") = "fyr" Then %>
                                <input type="radio" name="Kon" value="fyr" checked>
<% else %>
<input type="radio" name="Kon" value="fyr">
<% end if %>
                                <span class="tekst_indhold">Fyr</span>
<% If Request.Form("Kon") = "tos" Then %>
<input type="radio" name="kon" value="tos" checked>
<% else %>
<input type="radio" name="kon" value="tos" >
<% end if %>
                                <span class="tekst_indhold">T&oslash;s</span>

                              </td>
                            </tr>
                            <tr>
                              <td class="tekst_indhold" width="110" align="left" valign="top"><font class="small">Alder</font></td>
                              <td bordercolor="#ffffff" width="242" class="tekst_indhold">
                                <input type="text" name="alder" value="<%=Request("alder")%>" class="tekst_felter" size="40">
                              </td>
                            </tr>
                            <tr>
                              <td class="tekst_indhold" width="110" align="left" valign="top"><font class="small">Mobil
                                nummer</font></td>
                              <td bordercolor="#ffffff" width="242" class="tekst_indhold">
                                <input type="text" name="nummer" value="<%=Request("nummer")%>" class="tekst_felter" size="40">
                              </td>
                            </tr>
                            <tr>
                              <td class="tekst_indhold" width="110" align="left" valign="top">Telefon
                                Selskab</td>
                              <td bordercolor="#ffffff" width="242" class="tekst_indhold">
                                <select name="selskab">
<% If Len(Request("selskab")) > 0 Then %>
                                  <option value="<%=Request("selskab")%>" selected><%=Request("selskab")%></option>
<% else %>
                                  <option selected>v&aelig;lg
                                  selskab</option>
<% end if %>
                                  <option>Club Blah Blah</option>
                                  <option>Debitel</option>
                                  <option>Euro909</option>
                                  <option>Orange</option>
                                  <option>Sonofon</option>
                                  <option>Tele Danmark</option>
                                  <option>Tele2</option>
                                  <option>TeleFona</option>
                                  <option>Telepassport</option>
                                  <option>Telia</option>
                                  <option>TELMORE</option>
                                  <option>Tiscali</option>
                                </select>
                              </td>
                            </tr>
                            <tr>
                              <td class="tekst_indhold" width="110" align="left" valign="top"><font class="small">Din
                                mening om 2'nd Floor</font></td>
                              <td bordercolor="#ffffff" width="242">
                                <textarea cols="50" rows="4" name="fri_tekst" class="tekst_felter"><%=Request("fri_tekst")%></textarea>
                              </td>
                            </tr>
                            <tr>
                              <td class="tekst_indhold" width="110">&nbsp;</td>
                              <td bordercolor="#ffffff" width="242">
                                <input type="submit" value="Opret" name="submit2">
                              </td>
                            </tr>
                          </table>
                          </form>
                        <% end if %>

og login.asp

<table width="164" border="0" cellspacing="0" cellpadding="0" background="grafik/head.gif" height="22" align="center">
              <tr>
                <td><font face="Arial, Helvetica, sans-serif" size="2" class="head">&nbsp;CLUB
                  2'ND FLOOR:</font></td>
              </tr>
            </table>
            <table width="172" border="0" cellspacing="0" cellpadding="8">
              <tr>
                <td>
                  <%
Dim urlen
urlen = Request.ServerVariables("SCRIPT_NAME")
%>
                  <%
if session("brugernavn") <> "" then
%>
                  <% Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db.mdb")
                       
                        'Henter brugerens profil
                        Set rs = Server.CreateObject("ADODB.Recordset")
                        sql = "select * from bruger where brugernavn = '" & Session("brugernavn") & "'"
                        rs.open sql, conn, 1, 3
%>
                  <span class="tekst_alm">Velkommen <%=rs("brugernavn")%></span>
                  <br>
                  <table width="100%" border="0" cellspacing="2" cellpadding="0">
                    <tr>
                     
          <td width="50%" class="tekst_menu">Clubside</td>
                      <td width="50%" class="tekst_menu">&nbsp;</td>
                    </tr>
                    <tr>
                     
          <td width="50%" class="tekst_menu">S&oslash;g clubber</td>
                      <td width="50%" class="tekst_menu">&nbsp;</td>
                    </tr>
                    <tr>
                      <td width="50%"><a href="mailbox.asp" class="tekst_menu">Se
                        indbakke</a></td>
                     
          <td width="50%" class="tekst_menu"><a href="bruger.asp" class="tekst_menu">Ret
            profil</a></td>
                    </tr>
                    <tr>
                      <td width="50%"><a href="mailbox.asp?mode=ny_email" class="tekst_menu">Send
                        brev</a></td>
                      <td width="50%"><a href="bruger.asp?mode=logaf" class="tekst_menu">Log
                        af</a></td>
                    </tr>
                  </table>
               
                  <%
else

Response.Buffer = True

Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db.mdb")

                           
                            'Hvis brugeren har submittet login formen
                            if Request.ServerVariables("REQUEST_METHOD") = "POST" then
                               
                                'Tjecker om felterner er udfydlt
                                if Request.Form("brugernavn") <> "" AND Request.Form("adgangskode") <> "" then
                                   
                                        Sql = "select * from bruger where brugernavn = '" & Request.Form("brugernavn") & "'"
                                        Set rs = Conn.Execute(sql)
                                           
                                            'Tjecker om brugeren eksisterer
                                            if rs.EOF or rs.BOF then
                                                Response.Write("<span class='tekst_menu'><b>Brugernavnet eksisterer ikke</b></span><br>")
                                            else
                                                   
                                                    'tjecker om passwordsne matcher hinanden
                                                    if rs("brugerkode") = Request.Form("adgangskode") then
                                                           
                                                            Session("brugernavn") = Rs("brugernavn")
                                                            %>
                  <%
Response.Redirect(urlen)
%>
                  <%                                                       
                                                           
                                                    else
                                                        Response.Write("<span class='tekst_menu'><b>Adgangskoden er forkert<br></b></span>")
                                                    end if
                                            end if
                                           
                                        rs.Close
                                        set rs = nothing
                                       
                                else   
                                    Response.Write("<span class='tekst_menu'><b>Du har ikke udfyldt felterne</b></span><br>")
%>
                  <%                               

end if
            end if            %>
                  <% end if %>
                  <%
if session("brugernavn") <> "" then
%>
                  <% else %>
                  <table>
                   
        <form method="post" action="<%=urlen%>" name="Login">
          <tr>
                       
            <td bordercolor="#ffffff" class="tekst_alm">Clubnavn</td>
                      </tr>
                      <tr>
                        <td bordercolor="#ffffff">
                          <input type="text" name="brugernavn" class="tekst_felter" size="16">
                        </td>
                      </tr>
                      <tr>
                       
            <td bordercolor="#ffffff" class="tekst_alm" height="17">Adgangskode</td>
                      </tr>
                      <tr>
                        <td bordercolor="#ffffff">
                          <input type="password" name="adgangskode" class="tekst_felter" size="16">
                        </td>
                      </tr>
                      <tr>
                        <td bordercolor="#ffffff">
                          <input type="submit" value="Login" name="submit">
                          <br>
              <a href="tilmeld.asp" class="tekst_menu">Bliv clubber</a> <span class="tekst_alm">i
              Cluib 2nd floor og f&aring; en r&aelig;kke fordele </span> </td>
                      </tr>
                    </form>
                  </table>
                  <% end if %>
                </td>
              </tr>
            </table>
            <div align="center"></div>

mranders >

Ej ikke interreseret i alerts bokses :-) håber du kan finde en anden løsning.

du skal bare lave et script der checker Login og et der checker opret, du kalder jo begge for adgangskode både i login og opret

mranders > forstår ikke lige hvad du mener med det ?

Kan du give et eksempel ?

jeg tror at jeg har misforstået din kode, jeg tror ikke lige jeg kan hjælpe dig

Jeg fandt en løsning. Jeg gav submit knapperne en value - henholdvis Tilmeld og Login i stil med:

<input type="submit" value="Login" name="opret">

Og så udskiftede jeg

if Request.ServerVariables("REQUEST_METHOD") = "POST" then
med
If Request.Form("login") <> "" Then

/cygnet