Formular må ikke være tom..

du tjekker bare om de forskellige felter er tomme, er de det, lader du være med at sætte ting ind i din database, ellers indsætter du elementerne...

if felt <> "" then
feltet er tomt

Det gøres nemmest (synes jeg) ved at have indsættelsen og selve formen på samme side...

kan du hjælpe lidt mere ved fx at smide bare det ene tjek? Alle felter skal være udfyldt..

Har givet et eksempel, du kan bygge videre på den, nå du klikker med musen på text feltet automatisk texten slettes:


<form method="POST" action="add2.asp">
<table>
<tr>
<td>Brand-ID:</td><td><input type="text" name="BRAND_ID" size="20"></td>
</tr><tr>
<td>Model:</td><td><input type="text" name="TYPE_ID" size="20" value="Model" tabindex="2" onFocus="java script: if (this.value=='Model') this.value='';"></td>
</tr><tr>
<td>Amount:</td><td><input type="text" name="Amount" size="20"></td>
</tr><tr>
<td>Sparepart_ID:</td><td><input type="text" name="Sparepart_ID" size="20"> Look
  below</td>
</tr><tr>
<td>Sparepart_Type:</td><td><input type="text" name="Sparepart_Type" size="20">
  Look below</td>
</tr><tr>
<td><input type="submit" value="Submit" name="B1"><input type="reset" value="Reset" name="B2"></td>
</tr>
</table>
</form>

der skal bare sætttes lidt ekstra :))


value="Model" tabindex="2" onFocus="java script: if (this.value=='Model') this.value='';"

Kan se ideen, men den er ikke helt optimal.. da der så vil være ret mange(kan komme) poster med model hvilket ikke er meningen.. men ideen er der..

<%
if request.form("B1") <> "" then

brand_id = request.form("BRAND_ID")
type_id = request.form("TYPE_ID")
Amount = request.form("Amount")
Sparepart_id = request.form("Sparepart_ID")
Sparepart_type request.form("Sparepart_Type")
 
if not brand_id <> "" then
brand = "<font color="red">*</font>"
alert = "1"
end if

if not type_id <> "" then
type = "<font color="red">*</font>"
alert = "1"
end if

if not Amount <> "" then
amoun = "<font color="red">*</font>"
alert = "1"
end if

if not Sparepart_id <> "" then
s_id = "<font color="red">*</font>"
alert = "1"
end if

if not Sparepart_type <> "" then
s_type = "<font color="red">*</font>"
alert = "1"
end if

if not alert <> "" then
response.redirect "add2.asp?typeid=" & typeid & "&brandid=" & brand_id & "&amount=" & amount & "&spartid=" & sparepart_id & "spartype=" & sparepart_type
end if
end if
%>
<form method="POST" action="sidenavn.asp">
<table>
<% if alert <> "" then
response.write "Felter med <font color='red'> * </font> skal udfyldes<br><br>"
end if
%>
<tr>
<td><%=brand%> Brand-ID:</td><td><input type="text" name="BRAND_ID" size="20"></td>
</tr><tr>
<td><%=type%> Model:</td><td><input type="text" name="TYPE_ID" size="20"></td>
</tr><tr>
<td><%=amoun%> Amount:</td><td><input type="text" name="Amount" size="20"></td>
</tr><tr>
<td><%=s_id%> Sparepart_ID:</td><td><input type="text" name="Sparepart_ID" size="20"> Look
  below</td>
</tr><tr>
<td><%=s_type%>Sparepart_Type:</td><td><input type="text" name="Sparepart_Type" size="20">
  Look below</td>
</tr><tr>
<td><input type="submit" value="Submit" name="B1"><input type="reset" value="Reset" name="B2"></td>
</tr>
</table>
</form>


Dette virker vidst. Har ikke tjekket det, da jeg sidder på en anden computer, men det skulle virke... Så henter du bare informationerne på add2.asp med request.querystring("streng")

Håber det kan forstås...

Det skriver en rød stjerne ud for felter der ikke er udfyldt. Hvis alle felter er udfyldt sender den videre til siden add2.asp...

det du vil, er det at lave en side, der tjekker om formen er tom, og i såfald have personen til at udfylde feltet, eller vil du have en side, der hvis et felt er tomt bare sætter en værdi ind, der viser at feltet er tomt ??

Og hvad er det med den mail du snakker om til sidst ??
Uddybning ...

Microsoft VBScript compilation error '800a0400'

Expected statement

/tsupport/storageroom/t.asp, line 26

type = "<font color=""red"">*</font>"
^

Vil have at det er som det første du nævner.

Det med mailen var kun en lille ekstra ting som gjorde at når der blev indtastet i formularen så blev der sendt en mail til den ansvarlige.

if not brand_id <> "" then
brand = "<font color='red'>*</font>"
alert = "1"
end if

if not type_id <> "" then
type = "<font color='red'>*</font>"
alert = "1"
end if

if not Amount <> "" then
amoun = "<font color='red'>*</font>"
alert = "1"
end if

if not Sparepart_id <> "" then
s_id = "<font color='red'>*</font>"
alert = "1"
end if

if not Sparepart_type <> "" then
s_type = "<font color='red'>*</font>"
alert = "1"
end if

Ret disse linier...
I det jeg skrev til dig før...

Microsoft VBScript compilation error '800a0400'

Expected statement

/tsupport/storageroom/t.asp, line 26

type = "<font color='red'>*</font>"
^

Brokker sig stadig over type

ahh...

Det er klart :-)
Det er et reseveret ord...
prøv i stedet at ændre type til typeid

husk også at ændre det i denne linie...
<td><%=type%> Model:</td><td><input type="text" name="TYPE_ID" size="20"></td>

Får denne fejl efter at ha rettet i din kode:

Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/tsupport/storageroom/add2.asp, line 11


Her kommer hele koden hvor der ikke er fejl ved åbning af siden:

<%
if request.form("B1") <> "" then

brand_id = request.form("BRAND_ID")
type_id = request.form("TYPE_ID")
Amount = request.form("Amount")
Sparepart_id = request.form("Sparepart_ID")
Sparepart_type request.form("Sparepart_Type")
 
if not brand_id <> "" then
brand_ID = "<font color='red'>*</font>"
alert = "1"
end if

if not type_id <> "" then
type_ID = "<font color='red'>*</font>"
alert = "1"
end if

if not Amount <> "" then
amoun = "<font color='red'>*</font>"
alert = "1"
end if

if not Sparepart_id <> "" then
s_id = "<font color='red'>*</font>"
alert = "1"
end if

if not Sparepart_type <> "" then
s_type = "<font color='red'>*</font>"
alert = "1"
end if

if not alert <> "" then
response.redirect "add2.asp?typeid=" & typeid & "&brandid=" & brand_id & "&amount=" & amount & "&spartid=" & sparepart_id & "spartype=" & sparepart_type
end if
end if
%>
<form method="POST" action="add2.asp">
<table>
<% if alert <> "" then
response.write "Felter med <font color='red'> * </font> skal udfyldes<br><br>"
end if
%>
<tr>
<td><%=brand%> Brand-ID:</td><td><input type="text" name="BRAND_ID" size="20"></td>
</tr><tr>
<td><%=type_ID%> Model:</td><td><input type="text" name="TYPE_ID" size="20"></td>
</tr><tr>
<td><%=amoun%> Amount:</td><td><input type="text" name="Amount" size="20"></td>
</tr><tr>
<td><%=s_id%> Sparepart_ID:</td><td><input type="text" name="Sparepart_ID" size="20"> Look
  below</td>
</tr><tr>
<td><%=s_type%>Sparepart_Type:</td><td><input type="text" name="Sparepart_Type" size="20">
  Look below</td>
</tr><tr>
<td><input type="submit" value="Submit" name="B1"><input type="reset" value="Reset" name="B2"></td>
</tr>
</table>
</form>
<br><br>
<%
' SQL forespørgsel
strSQL = "Select Sparepart_ID,Sparepart_Type from StoreRoom group by Sparepart_ID, Sparepart_Type"
Set rs = Conn.Execute(strSQL)
Do until rs.eof
Response.write "<b>" & " " & rs("Sparepart_Type") & " " & rs("Sparepart_ID")
%>
<br></b>
<% 
rs.movenext
loop   
%>

Og har selvf. en åben database og en luk de rigtige steder.

her er add2.asp

<%strSQL = "INSERT INTO StoreRoom (BRAND_ID, TYPE_ID, Amount, Sparepart_ID, Sparepart_Type) VALUES " _
& "('" & Request.Form("BRAND_ID") & "', " _
& "'" & Request.Form("TYPE_ID") & "', " _
& "'" & Request.Form("Amount") & "', " _
& "'" & Request.Form("Sparepart_ID") & "', " _
& "'" & Request.Form("Sparepart_Type") & "')"

Conn.Execute strSQL

Response.Write "Databasen er opdateret!"
%>

glemte lige at sige at jeg fik denne fejl da alle felter var tomme

<%
if request.form("B1") <> "" then

brand_id = request.form("BRAND_ID")
type_id = request.form("TYPE_ID")
Amount = request.form("Amount")
Sparepart_id = request.form("Sparepart_ID")
Sparepart_type request.form("Sparepart_Type")
 
if not brand_id <> "" then
brand_ID = "<font color='red'>*</font>"
a = "1"
end if

if not type_id <> "" then
type_ID = "<font color='red'>*</font>"
a = "1"
end if

if not Amount <> "" then
amoun = "<font color='red'>*</font>"
a = "1"
end if

if not Sparepart_id <> "" then
s_id = "<font color='red'>*</font>"
a = "1"
end if

if not Sparepart_type <> "" then
s_type = "<font color='red'>*</font>"
a = "1"
end if

if not alert <> "" then
strSQL = "INSERT INTO StoreRoom (BRAND_ID, TYPE_ID, Amount, Sparepart_ID, Sparepart_Type) VALUES " _
& "('" & Request.Form("BRAND_ID") & "', " _
& "'" & Request.Form("TYPE_ID") & "', " _
& "'" & Request.Form("Amount") & "', " _
& "'" & Request.Form("Sparepart_ID") & "', " _
& "'" & Request.Form("Sparepart_Type") & "')"

Conn.Execute strSQL

a = "Databasen er opdateret"
else
a = "Alle felter med <font color = 'red'> * </font> skal udfyldes"
end if
end if
%>
<form method="POST" action="NAVN!!.asp">
<table>
<%=a%>
<tr>
<td><%=brand%> Brand-ID:</td><td><input type="text" name="BRAND_ID" size="20"></td>
</tr><tr>
<td><%=type_ID%> Model:</td><td><input type="text" name="TYPE_ID" size="20"></td>
</tr><tr>
<td><%=amoun%> Amount:</td><td><input type="text" name="Amount" size="20"></td>
</tr><tr>
<td><%=s_id%> Sparepart_ID:</td><td><input type="text" name="Sparepart_ID" size="20"> Look
  below</td>
</tr><tr>
<td><%=s_type%>Sparepart_Type:</td><td><input type="text" name="Sparepart_Type" size="20">
  Look below</td>
</tr><tr>
<td><input type="submit" value="Submit" name="B1"><input type="reset" value="Reset" name="B2"></td>
</tr>
</table>
</form>
<br><br>
<%
' SQL forespørgsel
strSQL = "Select Sparepart_ID,Sparepart_Type from StoreRoom group by Sparepart_ID, Sparepart_Type"
Set rs = Conn.Execute(strSQL)
Do until rs.eof
Response.write "<b>" & " " & rs("Sparepart_Type") & " " & rs("Sparepart_ID")
%>
<br></b>
<% 
rs.movenext
loop   
%>

Husk at rette navn!!! til navnet på den side hvor du har formen...

strSQL = "INSERT INTO StoreRoom (BRAND_ID, TYPE_ID, Amount, Sparepart_ID, Sparepart_Type) VALUES " _
& "('" & Request.Form("BRAND_ID") & "','" & Request.Form("TYPE_ID") & "','" & Request.Form("Amount") & "','" & Request.Form("Sparepart_ID") & "','" & Request.Form("Sparepart_Type") & "')"


Ændr lige din sql til dette...

Har fået det til at virke så tak til ellebaek