Formulä?

Hej förutsätter att du kan lite ASP sedan tidigare, men gör det med en IF sats. Finns kanske bättre sätt här bland "de riktigt duktiga" men jag brukar göra så här, vilket funkat bra.

Mvh jörgen

<%

IF reguest.form("fält1") = 0 OR reguest.form("fält2") = 0 THEN

response.write "Alla fält måste fyllas i "

else

'#där du skriver hela insert proceduren.
SQLStmt ="INSERT INTO tabell "

End IF

%>

Okej jo det kan jag... men vad menar du med:

SQLStmt ="INSERT INTO tabell "

:e

------------------
What is he doing?...

Hello,

själv brukar jag använda mig av denna typ av kodning så slipper besökaren fylla i alla fält en gång till om det bidde ngt fel ;)

<%
Dim varFalt1
Dim varFalt2
Dim varFalt3

'## -- skapar och visar ett formulär för besökaren --
Sub WriteForm
	Dim strScriptName

	strScriptName = Request.ServerVariables("SCRIPT_NAME")

	Response.Write "<form name=""form1"" " & _
		"method=""post"" action=""" & strScriptName & """>" & _
  		"<table width=""100%"" border=""0"" " & _
		"cellspacing=""0"" cellpadding=""0"">" & _
		"<tr>" & _
		"<td>Fält 1</td>" & _
		"<td>" & _
		"<input type=""text"" name=""req_falt1"" value=""" & varFalt1 & """>" & _
		"</td>" & _
		"</tr>" & _
		"<tr>" & _
		"<td>Fält 2</td>" & _
		"<td>" & _
		"<input type=""text"" name=""req_falt2"" value=""" & varFalt2 & """>" & _
		"</td>" & _
		"</tr>" & _
		"<tr>" & _
		"<td>Fält 3</td>" & _
		"<td>" & _
		"<input type=""text"" name=""falt3"" value=""" & varFalt3 & """>" & _
		"</td>" & _
		"</tr>" & _
		"<tr>" & _
		"<td> </td>" & _
		"<td>" & _
		"<input type=""submit"" name=""Submit"" value=""Submit"">" & _
		"</td>" & _
		"</tr>"
		"</table>" & _
		"</form>"
End Sub

'## -- kolla att alla obligatoriska fält är ifyllda --
'## -- Om inte alla fält är ifyllda returnerar  
'##    funktionen 1, dvs alla fält är ej ifyllda.
'##    Om alla obligatoriska fält är ifyllda
'##    returnerar funktionen 0
Function ValidateData
	Dim objItem
	Dim blnErrors

	blnErrors = 0

	For Each objItem in Request.Form
		If Left(objItem,4) = "req_" Then
			If Request.Form(objItem) = "" Then
				blnErrors = 1
			End If
		End If
	Next

	ValidateData = blnErrors
End Function

'## -- hämta alla ifyllda värden i formuläret --
Sub CollectData
	varFalt1 = Request.Form("falt1")
	varFalt2 = Request.Form("falt2")
	varFalt3 = Request.Form("falt3")
End Sub

'## -- kolla efter om formuläret postas eller inte --
If Request.Form > "" Then
	If ValidateData = 0 Then
		'## -- kod för vad som ska hända om alla
		'##    obligatoriska fält är ifyllda --
		Response.Write "Alla obligatoriska fält är ifyllda."
	Else
		'## -- skriv ut ett fel meddelande till användaren --
		Response.Write "Alla obligatoriska fält är inte ifyllda.<BR>" & _
			"Fyll i ALLA obligatoriska fält och försök igen.<BR>"
'## -- visa formuläret en gång till för användaren --
		Call WriteForm
	End If
Else
	Call WriteForm
End If
%>

- Subben WriteForm skriver ut ett formulär som besökaren ska fylla i.

- Functionen ValidateData kollar så att alla obligatoriska fält är ifyllda.
För att denna funktion ska fungerar så måste varje obligatoriskt fält ha en etikett som börjar med - req_, tex: req_falt1

- Subben CollectData hämtar alla fält i formuläret som postats och lägger dessa i variabler.
Dessa variabler är insatta som - value - i formulärfälten.

Hoppas nu att du förstod, annars är det bara att posta vidar och få lite mer beskrivning eller kolla in hur dessa funktioner/subbar funkar.

cya,
PatrikB

[r]
tappade bort lite kod ----
[/r]

[Redigerat av PatrikB den 16 mar 2001]

Du var smartare som vanligt Patrik *ler*, sparar och betraktar.

Ha det!

Jörgen

thanx,

hoppas bara att du såg att jag glömde att fylla i value i input fälten....ändrat nu så du får nog kolla koden igen :P

cya,
PatrikB

Jo, jag lade märke till det, men du hann före.

Online_do - jag förutsatte att du ev skulle lägga informationen i en databas. Om så inte var fallet behöver du ju inga Insert kommando. Då skriver du istället det du vill göra med informationen.

Bye Jörgen