Søg
Avatar billede karsten_larsen Praktikant
27. februar 2003 - 08:31 Der er 18 kommentarer og
1 løsning

Hvad er hemmeligheden bag udfyldte forms?

Hvor ligger fidusen, når man tjekker hvilke felter som mangler at blive udfyldt i en form og så får det markeret foran de enkelte form felter.

Jeg har fået lavet et script som skriver hvilke felter som mangler, men kan ikke få dem til at stå foran de enkelte form felter.

Så hvad er tricket?

:-) k_l
Avatar billede medions Nybegynder
27. februar 2003 - 08:52 #1
?

For Each Item In Request.Form
  Response.Write(Item & " " & Request.Form(Item))
Next

//>Rune
Avatar billede karsten_larsen Praktikant
27. februar 2003 - 09:03 #2
Så vidt jeg kan se så udskrive det værdien af det indtastede og navnet på på form feltet.

Det jeg gerne ville lære er hvordan for jeg markeret med en "rød_prik_i_den_stil" foran det form felt som ikke er blevet udfyldt. Håber det er lidt bedre formuleret.
Avatar billede coolstar Nybegynder
27. februar 2003 - 09:45 #3
du kan se her www.codevision.dk/send2.asp
er det sådan du mener ???
Avatar billede karsten_larsen Praktikant
27. februar 2003 - 10:05 #4
-> Coolstar - Det er lige noget sådan jeg mener.

Lige nu arbejder jeg med følgende:

<%
    Dim farve
    if Request.Form("FeltA") = "" then
    farve = CC0000
    end if
%>
<body>
    <form name="form1" method="post" action="test.asp">

    <% Response.Write "<font color=#" & farve & ">" & "* </font>" %>

    <input type="text" name="FeltA"><br>
    <input type="text" name="FeltB"><br>
    <input type="text" name="FeltC"><br>
    <input type="submit" name="Submit" value="Submit">
    </form>
</body>
</html>

Men er det måden, men det fungerer ikke lige efter hensigten og problemet kommer ved flere form felter?
Avatar billede nozio Nybegynder
27. februar 2003 - 10:37 #5
Du kunne prøve med:

<%
    Dim felta_farve , feltb_farve , feltc_farve , start_font , end_font
   
    start_font     = "<font color=#CC0000>"
    end_font    = "</font>"
   
    if Request.Form("FeltA") = "" then
      felta_farve = start_font & "* " &  end_font
    end if
   
    if Request.Form("Feltb") = "" then
      feltb_farve = start_font & "* " &  end_font
    end if
   
    if Request.Form("Feltc") = "" then
      feltc_farve = start_font & "* " &  end_font
    end if
%>
<body>
    <form name="form1" method="post" action="test.asp">

 

    <%=felta_farve%><input type="text" name="FeltA"><br>
    <%=feltb_farve%><input type="text" name="FeltB"><br>
    <%=feltc_farve%><input type="text" name="FeltC"><br>
    <input type="submit" name="Submit" value="Submit">
    </form>
</body>
</html>

- eller noget CASE eller en smartere måde:)
Avatar billede medions Nybegynder
27. februar 2003 - 11:33 #6
For Each Item In Request.Form
  If Len(Request.Form(Item)) = 0 Then
    strPrik = "<img src=""prik.gif"">"
  End If

  Response.Write(strPrik & " " & Item & " " & Request.Form(Item))
Next

//>Rune
Avatar billede karsten_larsen Praktikant
27. februar 2003 - 12:24 #7
-> medions - jeg ved ikke lige hvordan jeg kommer fra det du skriver til eksemplet hos coolstar

-> nozio - det er i den stil - det er hjælpsomt - bare ikke at "prikkerne" står der til at starte med.

Så derfor kludrer jeg rundt i dette nu:

??:-) k_l

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
response.expires=-1 'til IE
response.addheader "pragma", "no-cache" 'til netscape
response.cachecontrol="Private" 'til proxy-serverne
%>

<%
if request.form("form") = "Send" then
 
    Dim felta_farve , feltb_farve , feltc_farve , start_font , end_font
   
    start_font  = "<font color=#CC0000>"
    end_font    = "</font>"
   
    if Request.Form("FeltA") = "" then
      felta_farve = start_font & "* Dette felt skal udfyldes " &  end_font
    end if
   
    if Request.Form("Feltb") = "" then
      feltb_farve = start_font & "* Dette felt skal udfyldes" &  end_font
    end if
   
    if Request.Form("Feltc") = "" then
      feltc_farve = start_font & "* Dette felt skal udfyldes" &  end_font
    end if
   
    if Request.Form("Felta") <> "" & Request.Form("Feltb") <> "" & Request.Form("Feltc") <> "" then
        Response.Redirect("http://www.eksperten.dk")   
    end if

else

%>

<html>
<body>

    <form  method="post" action="test.asp" name="form">
    <input type="text" name="FeltA"><%=felta_farve%><br>
    <input type="text" name="FeltB"><%=feltb_farve%><br>
    <input type="text" name="FeltC"><%=feltc_farve%><br>
    <INPUT type="submit" name="form" value="Send">
  </form>
</body>
</html>

<% end if %>
Avatar billede karsten_larsen Praktikant
27. februar 2003 - 12:34 #8
Men det fungerer ikke. ??:-)
Avatar billede coolstar Nybegynder
28. februar 2003 - 10:10 #9
karsten larsen okay hvis det er sådan noget du søger så kan jeg godt hjælpe dig ´:)

Jeg er ikke lige hjemme nu så kan ikke lige sende koden og gider ik til at skrive det her forfra... kontakt mig evt. på icq 133146476
Avatar billede karsten_larsen Praktikant
28. februar 2003 - 10:31 #10
-> coolstar - det er noget sådan jeg søger. Jeg var forbi http://www.asp101.com/samples/form_handler.asp i går aftes, men koden der er for svær for mig at læse indtil videre. Jeg vil gerne have helt tjek på de koder, som jeg bruger.

Så jeg opretter en icq har det ikke i øjeblikket for at fange dig over den.

:-) k_l
Avatar billede coolstar Nybegynder
01. marts 2003 - 14:20 #11
håber jeg hjalp nok på icq.
Avatar billede karsten_larsen Praktikant
01. marts 2003 - 14:59 #12
-> coolstar

Det vil godt nok ikke lykkedes for mig det. Jeg kan godt se logikken, men det virker ikke.

Det er mit sidste forsøg.

??:-)

<html>
<body>
<%
    if email <> "" then
        Response.Write("det virker nu - videre til næste side")
    end if
    %>
    <form  method="post" action="test.asp" name="email">
    <input type="text" name="email">
    <%
    Response.Write(email1)
        if email = "" then
            email1 = "<p>* Du har ikke skrevet din email adresse</p>"
        end if %>
    <INPUT type="submit" name="email" value="Send">
      </form>
 
</body>
</html>
Avatar billede nozio Nybegynder
01. marts 2003 - 15:41 #13
Hov du udskriver email1 - før du har sat den - byt om ...

<%
if email = "" then
    email1 = "<p>* Du har ikke skrevet din email adresse</p>"
  end if
  Response.Write(email1)
      %>
Avatar billede karsten_larsen Praktikant
01. marts 2003 - 18:05 #14
-> nozio

Det har ingen betydning. Men det burdet det have, men teksten pisker frem på skærmen alligevel. Det virker, som om email1 bliver opfattet som en konstant og ikke stående i en if sætning.

Det kan da ikke passe at det skal være så bøvlet. Virker script hvis Response.Write (email1) byttes om hos jer??????


???:-| k_l
Avatar billede coolstar Nybegynder
01. marts 2003 - 18:27 #15
send lortet til mig så skal jeg fikse det for dig...
thomas@codevision.dk
Avatar billede karsten_larsen Praktikant
01. marts 2003 - 18:59 #16
-> coolstar : jeg har sent min to filer af sted som jeg bøvler med.

:-) k_l
Avatar billede coolstar Nybegynder
01. marts 2003 - 19:40 #17
ja jeg har lige modtaget dem og jeg må sige det er underlig måde du koder på og du gør det alt for besværligt for dig selv når du i forvejen ikke har tjek på asp.

jeg ville re kode hele lortet hvis jeg var dig.
Avatar billede karsten_larsen Praktikant
01. marts 2003 - 23:04 #18
YEEES - Så fik jeg det til at virke. Hvis det kan laves mere genialt vil jeg da gerne vide det.

Nedenfor følger koden til dem som måtte være interesseret!

-> nozio vil du lave et svar, da det blev din model jeg fik til at virke.

:)) karsten_larsen


<%
response.expires=-1 'til IE
response.addheader "pragma", "no-cache" 'til netscape
response.cachecontrol="Private" 'til proxy-serverne
%>
<%
if request.form("Submit") = "Submit" then
 
    Dim felta_farve , feltb_farve , feltc_farve , start_font , end_font
   
    start_font  = "<font color=#CC0000>"
    end_font    = "</font>"
   
    if Request.Form("FeltA") = "" then
      felta_farve = start_font & "* " &  end_font
    end if
   
    if Request.Form("FeltB") = "" then
      feltb_farve = start_font & "* " &  end_font
    end if
   
    if Request.Form("FeltC") = "" then
      feltc_farve = start_font & "* " &  end_font
    end if

    if Request.Form("FeltA") <> "" And Request.Form("FeltB") <> "" AND Request.Form("FeltC") <> "" then
        Response.Redirect("http://www.dr.dk")
    end if
end if
%>
<body>
    <form name="form1" method="post" action="test.asp">
    <input type="text" name="FeltA" value="<%=Request.Form("FeltA")%>"><%=felta_farve%><br>
    <input type="text" name="FeltB" value="<%=Request.Form("FeltB")%>"><%=feltb_farve%><br>
      <input type="text" name="FeltC" value="<%=Request.Form("FeltC")%>"><%=feltc_farve%><br>
    <input type="submit" name="Submit" value="Submit">
    </form>
</body>
</html>
Avatar billede nozio Nybegynder
01. marts 2003 - 23:32 #19
et svar :)
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 16:15 Internet forsvinder hele tiden Af TTA i Internetforbindelser
23/0920:49 Fejl på Tv2 Play Af Bukse i Browsere
23/0918:11 VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel
21/0910:39 DBA er ikke hvad det tidligere var - desværre! Af ErikHg i Fri debat
18/0919:52 Libre office skriveprogram Af Frank i Office & Kontorpakker
White papers
Flere white papers »