Notifikationer

Markér alle som læst Log ud

mortency Nybegynder

03. november 2004 - 15:55 Der er 13 kommentarer og
1 løsning

Sjekke form om felter er tomme

Jeg har en form med over 130 felter som må fylles ut, hvordan kan jeg sjekke om noen er tomme? alle må fylles ut!

Er det noen som vet hvordan dette kan løses? Dette virker ikke!

for i=1 to Request.Form.Count
Response.Write(Request.Form(i) & "<br>")
If Request.Form.Item(i) = "" Then
error = error & "- Feltet " Request.Form(i) " må fylles ut! \n"
End If
next

If error <> "" Then
Response.Clear
%><html>
<body onload="window.alert('En feil oppstod! \n<% =error %>');
window.history.back();">
 </body></html><%
Response.End
End If

Synes godt om

mortency Nybegynder

03. november 2004 - 15:56 #1

Så det var en skrive leif

for i=1 to Request.Form.Count
Response.Write(Request.Form(i) & "<br>")
If Request.Form.Item(i) = "" Then
error = error & "- Feltet " & Request.Form(i) & " må fylles ut! \n"
End If
next

If error <> "" Then
Response.Clear
%><html>
<body onload="window.alert('En feil oppstod! \n<% =error %>');
window.history.back();">
 </body></html><%
Response.End
End If

Synes godt om

hiks Nybegynder

03. november 2004 - 20:19 #2

hej

Lige lidt jeg plejer at lave anderledes - men det kan også bare være mig!

For Each Field in Request.Form
If Len(Request.Form(Field)) = 0 Then 'tjekker længden af inputtet for inputboxen
fejl = fejl& Field
End If
Next

jeg tror også jeg ville lave nedenstående anderledes:

If error <> "" Then
Response.Clear
%><html>
<body onload="window.alert('En feil oppstod! \n<% =error %>');
window.history.back();">
 </body></html><%
Response.End
End If

-> Altså lave det om til!
<%
If error <> "" Then
Response.Redirect "dinside.asp?fejl=1" 'fejl=1 skal angive hvad fejlen er
End If
%>

På "dinside.asp" kan du så fange fejlen og lave din alert evt.!

Er "error" ikke et reserveret ord? On Error resume next - jeg undrer mig bare.

/hiks

Synes godt om

mortency Nybegynder

04. november 2004 - 09:33 #3

Får ikke dette til å virke. Kan det ha noe med at det er for mange felter?

Synes godt om

hiks Nybegynder

04. november 2004 - 09:38 #4

nej det burde ikke have noget at sige...

For Each Field in Request.Form
If Len(Request.Form(Field)) = 0 Then 'tjekker længden af inputtet for inputboxen
fejl = fejl & Field
End If
Next

Står der på forhånd et 0 eller noget for udfyldt i de inputfelter?

Du poster data fra een side til den side hvor ovenstående kører ikke?

/hiks

Synes godt om

mortency Nybegynder

04. november 2004 - 09:45 #5

Datene er i en siden med en action="save"

Scriptet skriver til databasen som den skal men jeg må få sjekket dataene. Håpet jeg kunne få gjort det uten å måtte lage en if setning på hver eneste variabel.

Dette virker men er det mulig å få med input navnet ikke valuen?

for each i in Request.Form
'Response.Write(Request.Form(i) & "<br>")
If Len(Request.Form.Item(i)) = 0 Then
error = error & "- Feltet må fylles ut! \n"
End If
next

Synes godt om

hiks Nybegynder

04. november 2004 - 09:49 #6

ja det er jo dit: "i"

Dit i er navnet på din input.

/hiks

Synes godt om

mortency Nybegynder

04. november 2004 - 10:09 #7

Virker ikke! Den tar med valuen! Eller så nekter den å kjøre!

for each i in Request.Form
'Response.Write(Request.Form(i) & "<br>")
If Len(Request.Form.Item(i)) = 0 Then
error = error & "- Feltet " & Request.Form.Item(i) & " må fylles ut! \n"
End If
next

Synes godt om

hiks Nybegynder

04. november 2004 - 10:20 #8

Det jeg skrev til at starte med virker altså fint - her hos mig - så jeg ved ikke hvad du har gang i Med Request.Form.Item(i). Nedenstående virker lokalt her - så der burde ikke være den store forskel i det - det er simpel asp.

<%
For Each Field in Request.Form
If Len(Request.Form(Field)) = 0 Then 'tjekker længden af inputtet for inputboxen
fejl = fejl & "- Feltet " & Field & " må fylles ut! \n"
End If
Next

Response.Write fejl
%>

/hiks

Synes godt om

mortency Nybegynder

04. november 2004 - 10:31 #9

Hvis jeg lager den slik:

For Each Field in Request.Form
If Len(Request.Form(Field)) = 0 Then 'tjekker længden af inputtet for inputboxen
fejl = fejl & "- Feltet " & Field & " må fylles ut! \n"
Else
fejl = fejl & "- Alle felt er fylt ut!"
End If
Next

Response.Write(fejl)
Response.End

Så skriver den fortsatt ingen ting!

Synes godt om

mortency Nybegynder

04. november 2004 - 10:33 #10

Del av feltet ser slik ut!

<form method="post" name="FormGlobalVariables" ID="FormGlobalVariables">
<table width="640" border="0" cellspacing="1" cellpadding="2" bgcolor="999999">
<tr height="16">
<td class="xptextheader" colspan="2"><b>Layoutnavn</b></td>
</tr>
<tr bgcolor="#FFFFFF" height="16">
<td class="xptextrap" valign="top"> Navn:</td>
<td class="xptextrap" valign="top"> 
<input type="text" NAME="txtLayoutName" class="form_txtfield" size="50" maxlength="50">
</td>
</tr>
<tr height="16">
<td class="xptextrap" align="right" bgcolor="#CCCCCC" colspan="2"><a href="#" onclick="if(confirm('Det blir nå opprettet en ny layout!')){document.FormGlobalVariables.action='<%=Request.ServerVariables("SCRIPT_NAME")%>?Action=save';document.FormGlobalVariables.submit()};return false"><input type="submit" value="Legg til" ID="Button1" NAME="Button1" class="form_knapper"></a> </td>
</tr>
</table>
</form>

Synes godt om

hiks Nybegynder

04. november 2004 - 10:38 #11

det vil sige at du i toppen af din side har et sted der fanger:

If Request.Querystring("action") = "save" then

For Each Field in Request.Form
If Len(Request.Form(Field)) = 0 Then 'tjekker længden af inputtet for inputboxen
fejl = fejl & "- Feltet " & Field & " må fylles ut! \n"
End If
Next

If fejl <> "" then
fejl = "- Alle felt er fylt ut!"
End If

Else

'.... resten af din normal side her...

Synes godt om

mortency Nybegynder

04. november 2004 - 10:47 #12

jepp

Synes godt om

mortency Nybegynder

04. november 2004 - 10:47 #13

if Request.QueryString("action") = "save" then

strLayoutName = Request.Form("txtLayoutName")
strBGColorSite = Request.Form("txtBGColorSite")
strBGImage = Request.Form("txtBGImage")
strMenuMouseOffFontColor = Request.Form("txtMenuMouseOffFontColor")
strMenuMouseOffBgColor = Request.Form("txtMenuMouseOffBgColor")
strMenuMouseOnFontColor = Request.Form("txtMenuMouseOnFontColor")
strMenuMouseOnBgColor = Request.Form("txtMenuMouseOnBgColor")
strMenuBorderColor = Request.Form("txtMenuBorderColor")
strMenuFontSize = Request.Form("txtMenuFontSize")
strMenuFontStyle = Request.Form("txtMenuFontStyle")
strMenuFontWeight = Request.Form("txtMenuFontWeight")
strMenuFontName = Request.Form("txtMenuFontName")
strMenuItemPadding = Request.Form("txtMenuItemPadding")
strMenuSubImage = Request.Form("txtMenuSubImage")
strMenu3DBorder = Request.Form("txtMenu3DBorder")
strMenu3DHighColor = Request.Form("txtMenu3DHighColor")
strMenu3DLowColor = Request.Form("txtMenu3DLowColor")
strMenuCurrentPageFontColor = Request.Form("txtMenuCurrentPageFontColor")
strMenuCurrentPageBgColor = Request.Form("txtMenuCurrentPageBgColor")
strA_Color = Request.Form("txtA_Color")
strA_TextDec = Request.Form("txtA_TextDec")
strA_HoverColor = Request.Form("txtA_HoverColor")
strA_HoverTextDec = Request.Form("txtA_HoverTextDec")
strUL_Image = Request.Form("txtUL_Image")
strUL_TextDec = Request.Form("txtUL_TextDec")
strFirma_FW = Request.Form("txtFirma_FW")
strFirma_FS = Request.Form("txtFirma_FS")
strFirma_Color = Request.Form("txtFirma_Color")
strFirma_Font = Request.Form("txtFirma_Font")
strFirma_BGColor = Request.Form("txtFirma_BGColor")
strBoxLeftHeading_FW = Request.Form("txtBoxLeftHeading_FW")
strBoxLeftHeading_FS = Request.Form("txtBoxLeftHeading_FS")
strBoxLeftHeading_Color = Request.Form("txtBoxLeftHeading_Color")
strBoxLeftHeading_Font = Request.Form("txtBoxLeftHeading_Font")
strBoxLeftText_FW = Request.Form("txtBoxLeftText_FW")
strBoxLeftText_FS = Request.Form("txtBoxLeftText_FS")
strBoxLeftText_Color = Request.Form("txtBoxLeftText_Color")
strBoxLeftText_Font = Request.Form("txtBoxLeftText_Font")
strBoxNews_FW = Request.Form("txtBoxNews_FW")
strBoxNews_FS = Request.Form("txtBoxNews_FS")
strBoxNews_Color = Request.Form("txtBoxNews_Color")
strBoxNews_Font = Request.Form("txtBoxNews_Font")
strBoxNews_BGColor = Request.Form("txtBoxNews_BGColor")
strBoxNews_TextDec = Request.Form("txtBoxNews_TextDec")
strBoxNewsText_FW = Request.Form("txtBoxNewsText_FW")
strBoxNewsText_FS = Request.Form("txtBoxNewsText_FS")
strBoxNewsText_Color = Request.Form("txtBoxNewsText_Color")
strBoxNewsText_Font = Request.Form("txtBoxNewsText_Font")
strBoxNewsText_TextDec = Request.Form("txtBoxNewsText_TextDec")
strBoxDownloads_FW = Request.Form("txtBoxDownloads_FW")
strBoxDownloads_FS = Request.Form("txtBoxDownloads_FS")
strBoxDownloads_Color = Request.Form("txtBoxDownloads_Color")
strBoxDownloads_Font = Request.Form("txtBoxDownloads_Font")
strBoxDownloads_BGColor = Request.Form("txtBoxDownloads_BGColor")
strBoxDownloads_TextDec = Request.Form("txtBoxDownloads_TextDec")
strBoxDownloadsText_FW = Request.Form("txtBoxDownloadsText_FW")
strBoxDownloadsText_FS = Request.Form("txtBoxDownloadsText_FS")
strBoxDownloadsText_Color = Request.Form("txtBoxDownloadsText_Color")
strBoxDownloadsText_Font = Request.Form("txtBoxDownloadsText_Font")
strBoxDownloadsText_TextDec = Request.Form("txtBoxDownloadsText_TextDec")
strBoxStats_FW = Request.Form("txtBoxStats_FW")
strBoxStats_FS = Request.Form("txtBoxStats_FS")
strBoxStats_Color = Request.Form("txtBoxStats_Color")
strBoxStats_Font = Request.Form("txtBoxStats_Font")
strBoxStats_BGColor = Request.Form("txtBoxStats_BGColor")
strBoxStats_TextDec = Request.Form("txtBoxStats_TextDec")
strBoxStatsText_FW = Request.Form("txtBoxStatsText_FW")
strBoxStatsText_FS = Request.Form("txtBoxStatsText_FS")
strBoxStatsText_Color = Request.Form("txtBoxStatsText_Color")
strBoxStatsText_Font = Request.Form("txtBoxStatsText_Font")
strBoxStatsText_TextDec = Request.Form("txtBoxStatsText_TextDec")
strHeading_FW = Request.Form("txtHeading_FW")
strHeading_FS = Request.Form("txtHeading_FS")
strHeading_Color = Request.Form("txtHeading_Color")
strHeading_Font = Request.Form("txtHeading_Font")
strCreatedOf_FW = Request.Form("txtCreatedOf_FW")
strCreatedOf_FS = Request.Form("txtCreatedOf_FS")
strCreatedOf_Color = Request.Form("txtCreatedOf_Color")
strCreatedOf_Font = Request.Form("txtCreatedOf_Font")
strEditor_FW = Request.Form("txtEditor_FW")
strEditor_FS = Request.Form("txtEditor_FS")
strEditor_Color = Request.Form("txtEditor_Color")
strEditor_Font = Request.Form("txtEditor_Font")
strNewsList_FW = Request.Form("txtNewsList_FW")
strNewsList_FS = Request.Form("txtNewsList_FS")
strNewsList_Color = Request.Form("txtNewsList_Color")
strNewsList_Font = Request.Form("txtNewsList_Font")
strDownloadListTableBG = Request.Form("txtDownloadListTableBG")
strDownloadList_FW = Request.Form("txtDownloadList_FW")
strDownloadList_FS = Request.Form("txtDownloadList_FS")
strDownloadList_Color = Request.Form("txtDownloadList_Color")
strDownloadList_Font = Request.Form("txtDownloadList_Font")
strDownloadList_BGColor = Request.Form("txtDownloadList_BGColor")
strDownloadListText_FW = Request.Form("txtDownloadListText_FW")
strDownloadListText_FS = Request.Form("txtDownloadListText_FS")
strDownloadListText_Color = Request.Form("txtDownloadListText_Color")
strDownloadListText_Font = Request.Form("txtDownloadListText_Font")
strDownloadBG1 = Request.Form("txtDownloadBG1")
strDownloadBG2 = Request.Form("txtDownloadBG2")
strFormInputMenu_FS = Request.Form("txtFormInputMenu_FS")
strFormInputMenu_Font = Request.Form("txtFormInputMenu_Font")
strFormInputContactLong_FS = Request.Form("txtFormInputContactLong_FS")
strFormInputContactLong_Font = Request.Form("txtFormInputContactLong_Font")
strFormInputContactShort_FS = Request.Form("txtFormInputContactShort_FS")
strFormInputContactShort_Font = Request.Form("txtFormInputContactShort_Font")
strPrint_FS = Request.Form("txtPrint_FS")
strPrint_Color = Request.Form("txtPrint_Color")
strPrint_Font = Request.Form("txtPrint_Font")
strBottom_FW = Request.Form("txtBottom_FW")
strBottom_FS = Request.Form("txtBottom_FS")
strBottom_Color = Request.Form("txtBottom_Color")
strBottom_Font = Request.Form("txtBottom_Font")
strContactUS_FW = Request.Form("txtContactUS_FW")
strContactUS_FS = Request.Form("txtContactUS_FS")
strContactUS_Color = Request.Form("txtContactUS_Color")
strContactUS_Font = Request.Form("txtContactUS_Font")
strContactUS_BGColor = Request.Form("txtContactUS_BGColor")
strContactUSText_FW = Request.Form("txtContactUSText_FW")
strContactUSText_FS = Request.Form("txtContactUSText_FS")
strContactUSText_Color = Request.Form("txtContactUSText_Color")
strContactUSText_Font = Request.Form("txtContactUSText_Font")
strContactUSText_TextDec = Request.Form("txtContactUSText_TextDec")
strContactUSBG1 = Request.Form("txtContactUSBG1")
strContactUSBG2 = Request.Form("txtContactUSBG2")
strFormInputBtn_FS = Request.Form("txtFormInputBtn_FS")
strFormInputBtn_Color = Request.Form("txtFormInputBtn_Color")
strFormInputBtn_Font = Request.Form("txtFormInputBtn_Font")
strFormInputBtn_BGColor = Request.Form("txtFormInputBtn_BGColor")
strHR_Height = Request.Form("txtHR_Height")
strHR_Color = Request.Form("txtHR_Color")

For Each Field in Request.Form
If Len(Request.Form(Field)) = 0 Then 'tjekker længden af inputtet for inputboxen
fejl = fejl & "- Feltet " & Field & " må fylles ut! \n"
Else
fejl = fejl & "- Alle felt er fylt ut!"
End If
Next

Response.Write(fejl)
Response.End

Synes godt om

hiks Nybegynder

04. november 2004 - 10:57 #14

problemet er at du ikke har placeret det i samme form - og derfor kan du ikke "fange"/gennemløbe den sådan der. Hvis du havde placeret alle i samme for - så var det intet problem.

og løkken ser ikke sådan ud - tjek mit sidste indlæg.

/hiks

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

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
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
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
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS