var1 = request.form ("fält1")
var2 = request.form ("fält2")
var3 = request.form ("fält3")
if (trim(var1)<>"" and trim(var2)<>"" and trim(var3)<>"") then
'gör din insert
end if
mvh,
9 svar · 310 visningar · startad av crisse6
jag har en sida där man kan bli medlem, men hur bär man sig åt för att man inte behöver fylla i ALLA fält förutom dom man valt som ska vara obligatoriska... kolla denna kod (det är den kod som skriver in den info man angav i formuläret):
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=C:\inetpub\wwwroot\groda\users.mdb"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM users"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
RecSet.AddNew
RecSet("Username") = Request.Form("username")
RecSet("Password") = Request.Form("password")
RecSet("E-post") = Request.Form("e-post")
RecSet("Access") = ("B")
RecSet("Namn") = Request.Form("namn")
RecSet("Efternamn") = Request.Form("efternamn")
RecSet("Mobil") = Request.Form("mobil")
RecSet("Kon") = Request.Form("kon")
RecSet("ar") = Request.Form("ar")
RecSet("manad") = Request.Form("manad")
RecSet("dag") = Request.Form("dag")
RecSet("Fakta") = Request.Form("fakta")
RecSet("Bor") = Request.Form("bor")
RecSet.Update
RecSet.Close
Connect.Close %>
<b>Dessa uppgifter angav du:</b><p>
Login:<br><b><% =Request.Form("username") %></b><p>
Password:<br><b><% =Request.Form("password") %></b><p>
E-mail:<br><b><% =Request.Form("e-post") %></b><p>
Namn:<br><b><% =Request.Form("namn") %></b><p>
Efternamn:<br><b><% =Request.Form("efternamn") %></b><p>
Mobilnr:<br><b><% =Request.Form("mobil") %></b><p>
Kön:<br><b><% =Request.Form("kon") %></b><p>
Du är född:<br><b><% =Request.Form("ar") %> <% =Request.Form("manad") %> <% =Request.Form("dag") %></b><p>
Lite om dig själv:<br><b><% =Request.Form("fakta") %></b><p>
Du bor i:<br><b><% =Request.Form("bor") %></b><p>
<p><br><br><br>som du märker vet nu groda.net en del om dig :-) men va inte
orolig, vi lämnar inte ut dessa uppgifter *kvack*<br><br><br>
detta är ett problem ska ni veta...
var1 = request.form ("fält1")
var2 = request.form ("fält2")
var3 = request.form ("fält3")
if (trim(var1)<>"" and trim(var2)<>"" and trim(var3)<>"") then
'gör din insert
end if
mvh,
var i min kod ska detta fyllas i?
tja, du kan sätta in hela klabbet inne i if-satsen.
<%
[b]if (trim(Request.Form("username"))<>"" and trim(Request.Form("password"))<>"" and trim(Request.Form("e-post"))<>"") then[/b]
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=C:\inetpub\wwwroot\groda\users.mdb"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM users"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
RecSet.AddNew
RecSet("Username") = Request.Form("username")
RecSet("Password") = Request.Form("password")
RecSet("E-post") = Request.Form("e-post")
RecSet("Access") = ("B")
RecSet("Namn") = Request.Form("namn")
RecSet("Efternamn") = Request.Form("efternamn")
RecSet("Mobil") = Request.Form("mobil")
RecSet("Kon") = Request.Form("kon")
RecSet("ar") = Request.Form("ar")
RecSet("manad") = Request.Form("manad")
RecSet("dag") = Request.Form("dag")
RecSet("Fakta") = Request.Form("fakta")
RecSet("Bor") = Request.Form("bor")
RecSet.Update
RecSet.Close
Connect.Close %>
<b>Dessa uppgifter angav du:</b><p>
Login:<br><b><% =Request.Form("username") %></b><p>
Password:<br><b><% =Request.Form("password") %></b><p>
E-mail:<br><b><% =Request.Form("e-post") %></b><p>
Namn:<br><b><% =Request.Form("namn") %></b><p>
Efternamn:<br><b><% =Request.Form("efternamn") %></b><p>
Mobilnr:<br><b><% =Request.Form("mobil") %></b><p>
Kön:<br><b><% =Request.Form("kon") %></b><p>
Du är född:<br><b><% =Request.Form("ar") %> <% =Request.Form("manad") %> <% =Request.Form("dag") %></b><p>
Lite om dig själv:<br><b><% =Request.Form("fakta") %></b><p>
Du bor i:<br><b><% =Request.Form("bor") %></b><p>
<p><br><br><br>som du märker vet nu groda.net en del om dig :-) men va inte
orolig, vi lämnar inte ut dessa uppgifter *kvack*<br><br><br>
<%
[b]else[/b]
response.write "du har inte fyllt i rätt, din jäkla apa!"
[b]end if[/b]
%>
till exempel.
en fråga till dig:
RecSet("Access") = ("B")
varför parenteser?
r: en jäklans massa redigeringar idag...
mvh,
men du, svar ja, den reagerar på om man inte fyller i ngt av d fält som du skrivit i If-satsen... men om man fyllt i dom eftersom dom är obligatoriska men det finns te x ett fält "mobilnummer" som man inte behöver fylla i så blir det detta felmeddelandet om man försöker bli medlem:
Provider error '80020005'
Typblandningsfel.
/groda/add.asp, line 34
bah. börjar visst blir trött.
då får du väl lägga in en nolla eller nåt i mobilnummer-fältet om du inte får ett värde, eller så får du inte ha med det fältet i insertsatsen.
... eller oxå ändrar man så att fältet kan ta emot null-värden ...
hur ändrar man det till att godkänna "null" värden?
Gå in i designläge i tabellen, klicka på fältet du vill ändra, en massa val kommer längre ned, i rutan Tillåt nollängd skriver du "Ja"...
det funkar nu, tack för hjälpa!