webForumDet fria alternativet
Logga in / Bli medlem

Problem med inmatnings formulär

ASP

10 svar · 421 visningar · startad av leniz

lenizs avatarlenizMedlem sedan aug. 2001676 inlägg
Frågan#1

Hej!

Jag har lite problem med min inmatnings sida med ett formulär som ska infoga informationen i databasen (Access)… allt funkar utom där jag har två checkboxar.. de värden jag får ut av dem är on när de är ikryssade.. i databasen (som är på svenska) har jag ställt in dessa på av/på. Varför blir det då problem? Kan det bero på att det står på svenska i access???

Ett annat problem är att jag måste mata in info i alla fält i formuläret annars klagar den trots att jag inte har att det är obligatoriskt i databasen. Någon ide varför det blir så???

Mvh Lena

@nderss avatar@ndersMedlem sedan juni 200032 967 inlägg
#2

Vad gäller dina checkboxar får du översätta till true / false själv.

if request.form("checkbox1")="on" then
checkbox1 = "true"
else
checkbox1 = "false"
end if

sedan slänger du bara in checkbox1 i sql-frågan istället för som du har det nu.

Vad gäller din andra fråga: när du skapar tabeller i Access är fälten per default inställda på att inte tillåta nollängd. Det kan du själv ändra på, i tabell-designläget i Access.

Mvh,

------------------
http://free.webforum.nu/wf/Forum1/HTML/004053.html

@nderss avatar@ndersMedlem sedan juni 200032 967 inlägg
#3

Oj, vad konstigt det här blev. :)

------------------
http://free.webforum.nu/wf/Forum1/HTML/004053.html

[Redigerat av @nders den 12 sep 2001]

emissionMedlem sedan dec. 19996 721 inlägg
#4

...och jag lyckades radera, när jag skulle redigera...

Om man vara lite smidig så lägger man in

len(request.form("checkbox1"))

i SQL-satsen, och sätter VALUE på checken till "1" eller nåt

------------------
/emission
If you see someone without a smiley, give them your colon.

lenizs avatarlenizMedlem sedan aug. 2001676 inlägg
#5

Hej igen!
Och tack för svaren! Det där med databasen gick lätt att fixa men när jag skriver in koden så klagar den på else raden av någon anledning =(
Mvh Lena

@nderss avatar@ndersMedlem sedan juni 200032 967 inlägg
#6

Får vi se hur din kod ser ut, och felmeddelandet, så kan vi mycket lättare hjälpa dig.

------------------
http://free.webforum.nu/wf/Forum1/HTML/004053.html

lenizs avatarlenizMedlem sedan aug. 2001676 inlägg
#7

Okej.. här kommer koden!

Felmeddelandet är att det blir syntax fel på den där else raden...

Mvh Lena

<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<!-- #INCLUDE FILE="sqlConnect.inc"-->
<%

'Response.Flush

if Request.Form("SPARAKNAPP1") \<\> "" THEN
	Ortnamn = Request.Form("ortnamnet")
	Lanid = Request.Form("lanidd")
		
	sql = "INSERT INTO Ort(Ortnamn, lan_id)" & \_
			" VALUES ('" & \_
			Ortnamn & "'," & \_
			Lanid & ")"
			
	
	stugdatabas.Execute(sql)
end if

if Request.Form("SPARAKNAPP3") \<\> "" THEN
	'if request.form("privat")="on" then privaten = "true" 
	'else privaten = "false"
	'end if
	'if request.form("camping")="on" then campingen = "true" 
	'else campingen = "false"
	'end if
	innamnen = Request.Form("privat")
	indatumen = Request.Form("camping")
	innamnen = Request.Form("innamn")
	indatumen = Request.Form("indatum")
	intideren = Request.Form("intider")
	inadressen = Request.Form("inadress")
	inpostnren = Request.Form("inpostnr")
	inorten = Request.Form("inort")
	intelen = Request.Form("intel")
	ineposten = Request.Form("inepost")
	inhemsidaen = Request.Form("inhemsida")
	
	sql = "INSERT INTO Innehavare(Privatperson, Kontaktperson, Camping, Oppestider, Fullservice, Adress, Postnr, Ort, Telefonnr, Epost, Hemsida)" & \_
			" VALUES ('" & \_
			privaten & "','" & \_
			campingen & "','" & \_
			innamnen & "','" & \_
			indatumen & "','" & \_
			intideren & "','" & \_
			inadressen & "','" & \_
			inpostnren & "','" & \_
			inorten & "','" & \_
			intelen & "','" & \_
			ineposten & "','" & \_
			inhemsidaen & "')"
			
	
	stugdatabas.Execute(sql)
end if

if Request.Form("SPARAKNAPP4") \<\> "" THEN
	stugnamnen = Request.Form("stugnamn")
	antalstugoren = Request.Form("antalstugor")
	iniden = Request.Form("inid")
	antalbaddaren = Request.Form("antalbaddar")
	prisdagen = Request.Form("prisdag")
	prisveckaen = Request.Form("prisvecka")
	kommentareren = Request.Form("kommentarer")
	ortiden = Request.Form("ortid")
	vagen = Request.Form("vag")


	
	
	sql = "INSERT INTO Stugor(Namn, AntalStugor, InnehavareID, Antalbadd, Pris_per_natt, Pris_per_vecka, Kommentarer, OrtID, Vagbeskrivning)" & \_
			" VALUES ('" & \_
			stugnamnen & "','" & \_
			antalstugoren & "','" & \_
			iniden & "','" & \_
			antalbaddaren & "','" & \_
			prisdagen & "','" & \_
			prisveckaen & "','" & \_
			kommentareren & "','" & \_
			ortiden & "','" & \_
			vagen & "')"
			
	
	stugdatabas.Execute(sql)
end if

if Request.Form("SPARAKNAPP2") \<\> "" THEN
	bildurlen = Request.Form("bildurl")
	stuggiden = Request.Form("stuggid")
	bildkommentaren = Request.Form("bildkommentar")

	sql = "INSERT INTO Bilder(Bild, StugID, Bildkommentar)" & \_
			" VALUES ('" & \_
			bildurlen & "','" & \_
			stuggiden & "','" & \_
			bildkommentaren & "')"
			
	
	stugdatabas.Execute(sql)
end if

if Request.Form("SPARAKNAPP5") \<\> "" THEN
	aktiiden = Request.Form("aktiid")
	stugggiden = Request.Form("stugggid")
	
	sql = "INSERT INTO Stug_akti_link(AktivitetsID, StugID)" & \_
			" VALUES ('" & \_
			aktiiden & "','" & \_
			stugggiden & "')"
	
	stugdatabas.Execute(sql)
end if

if Request.Form("SPARAKNAPP6") \<\> "" THEN
	faciden = Request.Form("facid")
	stuggggiden = Request.Form("stuggggid")

	sql = "INSERT INTO Stug_faci_link(facID, StugID)" & \_
			" VALUES ('" & \_
			faciden & "','" & \_
			stuggggiden & "')"
			
	
	stugdatabas.Execute(sql)
end if

%>

<BODY>
<font face=tahoma size="2">
<hr color="000000">
<b>OBS!!! OBEHÖRIGA ÄGA EJ TILLTRÄDE!
<hr color="000000"></b>
<FORM METHOD="POST" ACTION="inmatning.asp">
<b>Ort</b><br>
Ortnamn:<INPUT TYPE="TEXT" NAME="ortnamnet"><BR>

Län:
<select name="lanidd"><%

sql = "select * from lan order by län"

set rs = stugdatabas.Execute(sql)

do until rs.eof

%\>
	\<option value="\<%=rs("lan_id")%\>"\>\<%=rs("län")%\>\</option\>
\<%
rs.movenext

loop

%></select>

<INPUT TYPE="SUBMIT" NAME="SPARAKNAPP1" VALUE="Spara">

<hr color="000000">
<b>Innehavare</b><br>
Privat uthyrare <input type="checkbox" name="privat"> <br>
Camping/stugby <input type="checkbox" name="camping"> <br>
Namn:<INPUT TYPE="TEXT" NAME="innamn"><BR>
Öppet tider:<INPUT TYPE="TEXT" NAME="indatum"><BR>
Full service:<INPUT TYPE="TEXT" NAME="intider"><BR>
Adress:<INPUT TYPE="TEXT" NAME="inadress"><BR>
Postnr:<INPUT TYPE="TEXT" NAME="inpostnr"><BR>
Ort:<INPUT TYPE="TEXT" NAME="inort"><BR>
Telefonnr:<INPUT TYPE="TEXT" NAME="intel"><BR>
E-post:<INPUT TYPE="TEXT" NAME="inepost"><BR>
Hemsida:<INPUT TYPE="TEXT" NAME="inhemsida"><BR>

<INPUT TYPE="SUBMIT" NAME="SPARAKNAPP3" VALUE="Spara">

<hr color="000000">
<b>Stugor</b><br>
Namn på stugan:<INPUT TYPE="TEXT" NAME="stugnamn"><BR>
Antal stugor av den typen:<INPUT TYPE="TEXT" NAME="antalstugor"><BR>
Innehavare:
<select name="inid">
<%
sql = "select * from Innehavare order by InnehavareID DESC"
set rs = stugdatabas.Execute(sql)
do until rs.eof
%>
<option value="<%=rs("InnehavareID")%>"><%=rs("Kontaktperson")%></option>
<%
rs.movenext
loop
%></select><br>

Antal bäddar:<INPUT TYPE="TEXT" NAME="antalbaddar"><BR>
Pris per natt:<INPUT TYPE="TEXT" NAME="prisdag"><BR>
Pris per vecka:<INPUT TYPE="TEXT" NAME="prisvecka"><BR>
Kommentarer:<INPUT TYPE="TEXT" NAME="kommentarer"><BR>
Ort:
<select name="ortid"><%
sql = "select * from Ort order by OrtID DESC"
set rs = stugdatabas.Execute(sql)
do until rs.eof
%>
<option value="<%=rs("OrtID")%>"><%=rs("Ortnamn")%></option>
<%
rs.movenext
loop
%></select><br>
Vägbeskrivning:<INPUT TYPE="TEXT" NAME="vag"><BR>

<INPUT TYPE="SUBMIT" NAME="SPARAKNAPP4" VALUE="Spara">
<hr color="000000">

<b>Bilder</b><br>
Bild namn:(Om du inte har någon bild, vänligen skriv tombild.gif)<INPUT TYPE="TEXT" NAME="bildurl"><BR>
Bildkommentar:<INPUT TYPE="TEXT" NAME="bildkommentar"><BR>
Stugnamn:
<select name="stuggid">
<%
sql = "select * from Stugor order by StugID DESC"
set rs = stugdatabas.Execute(sql)
do until rs.eof
%>
<option value="<%=rs("StugID")%>"><%=rs("Namn")%></option>
<%
rs.movenext
loop
%></select><br>

<INPUT TYPE="SUBMIT" NAME="SPARAKNAPP2" VALUE="Spara">

<hr color="000000">

<b>Aktiviteter</b><br>
Välj aktivitet:
<select name="aktiid">
<%
sql = "select * from Aktiviteter order by AktivitetsID DESC"
set rs = stugdatabas.Execute(sql)
do until rs.eof
%>
<option value="<%=rs("AktivitetsID")%>"><%=rs("Namn")%></option>
<%
rs.movenext
loop
%></select><br>

Stugnamn:
<select name="stugggid">
<%
sql = "select * from Stugor order by StugID DESC"
set rs = stugdatabas.Execute(sql)
do until rs.eof
%>
<option value="<%=rs("StugID")%>"><%=rs("Namn")%></option>
<%
rs.movenext
loop
%></select><br>

<INPUT TYPE="SUBMIT" NAME="SPARAKNAPP5" VALUE="Spara">
<br><br>

<hr color="000000">
<b>Faciliteter</b><br>
Välj facilitet
<select name="facid">
<%
sql = "select * from faciliteter order by facID DESC"
set rs = stugdatabas.Execute(sql)
do until rs.eof
%>
<option value="<%=rs("facID")%>"><%=rs("Namn")%></option>
<%
rs.movenext
loop
%></select><br>
Stugnamn:
<select name="stuggggid">
<%
sql = "select * from Stugor order by StugID DESC"
set rs = stugdatabas.Execute(sql)
do until rs.eof
%>
<option value="<%=rs("StugID")%>"><%=rs("Namn")%></option>
<%
rs.movenext
loop
%></select><br>

<INPUT TYPE="SUBMIT" NAME="SPARAKNAPP6" VALUE="Spara">
<br><br>

</FORM>

</BODY>
</HTML>

@nderss avatar@ndersMedlem sedan juni 200032 967 inlägg
#8

Du måste ha radbrytning efter then och efter else när du skriver if-satser på det sättet.

if request.form("privat")="on" then 
privaten = "true" 
else 
privaten = "false"
end if
if request.form("camping")="on" then 
campingen = "true" 
else 
campingen = "false"
end if

Mvh,

------------------
http://free.webforum.nu/wf/Forum1/HTML/004053.html

lenizs avatarlenizMedlem sedan aug. 2001676 inlägg
#9

Hej!

Oj, nu känner jag mig besvärlig här! Nu funkar själva formuläret men när jag fyller i uppgifter i det och klickar på spara så får jag det här felmeddelandet: Typblandningsfel i villkorsuttryck.

Har ändrat lite i koden också så jag skickar den igen om det är någon som orkar bry sig!

Mvh Lena

<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<!-- #INCLUDE FILE="sqlConnect.inc"-->
<%

if Request.Form("SPARAKNAPP1") \<\> "" THEN
	Ortnamn = Request.Form("ortnamnet")
	Lanid = Request.Form("lanidd")
		
	sql = "INSERT INTO Ort(Ortnamn, lan_id)" & \_
			" VALUES ('" & \_
			Ortnamn & "'," & \_
			Lanid & ")"
					
	stugdatabas.Execute(sql)
end if

if Request.Form("SPARAKNAPP3") \<\> "" THEN
	if request.form("privat")="on" then 
	privaten = "true" 
	else 
	privaten = "false"
	end if
	innamnen = Request.Form("innamn")
	if request.form("camping")="on" then 
	campingen = "true" 
	else 
	campingen = "false"
	end if
	indatumen = Request.Form("indatum")
	intideren = Request.Form("intider")
	inadressen = Request.Form("inadress")
	inpostnren = Request.Form("inpostnr")
	inorten = Request.Form("inort")
	intelen = Request.Form("intel")
	ineposten = Request.Form("inepost")
	inhemsidaen = Request.Form("inhemsida")
	
	sql = "INSERT INTO Innehavare(Privatperson, Kontaktperson, Camping, Oppestider, Fullservice, Adress, Postnr, Ort, Telefonnr, Epost, Hemsida)" & \_
			" VALUES ('" & \_
			privaten & "','" & \_
			innamnen & "','" & \_
			campingen & "','" & \_
			indatumen & "','" & \_
			intideren & "','" & \_
			inadressen & "','" & \_
			inpostnren & "','" & \_
			inorten & "','" & \_
			intelen & "','" & \_
			ineposten & "','" & \_
			inhemsidaen & "')"
	
	stugdatabas.Execute(sql)
end if

if Request.Form("SPARAKNAPP4") \<\> "" THEN
	stugnamnen = Request.Form("stugnamn")
	antalstugoren = Request.Form("antalstugor")
	iniden = Request.Form("inid")
	antalbaddaren = Request.Form("antalbaddar")
	prisdagen = Request.Form("prisdag")
	prisveckaen = Request.Form("prisvecka")
	kommentareren = Request.Form("kommentarer")
	ortiden = Request.Form("ortid")
	vagen = Request.Form("vag")	
	
	sql = "INSERT INTO Stugor(Namn, AntalStugor, InnehavareID, Antalbadd, Pris_per_natt, Pris_per_vecka, Kommentarer, OrtID, Vagbeskrivning)" & \_
			" VALUES ('" & \_
			stugnamnen & "','" & \_
			antalstugoren & "','" & \_
			iniden & "','" & \_
			antalbaddaren & "','" & \_
			prisdagen & "','" & \_
			prisveckaen & "','" & \_
			kommentareren & "','" & \_
			ortiden & "','" & \_
			vagen & "')"
			
	
	stugdatabas.Execute(sql)
end if

if Request.Form("SPARAKNAPP2") \<\> "" THEN
	bildurlen = Request.Form("bildurl")
	stuggiden = Request.Form("stuggid")
	bildkommentaren = Request.Form("bildkommentar")

	sql = "INSERT INTO Bilder(Bild, StugID, Bildkommentar)" & \_
			" VALUES ('" & \_
			bildurlen & "','" & \_
			stuggiden & "','" & \_
			bildkommentaren & "')"
			
	
	stugdatabas.Execute(sql)
end if

if Request.Form("SPARAKNAPP5") \<\> "" THEN
	aktiiden = Request.Form("aktiid")
	stugggiden = Request.Form("stugggid")
	
	sql = "INSERT INTO Stug_akti_link(AktivitetsID, StugID)" & \_
			" VALUES ('" & \_
			aktiiden & "','" & \_
			stugggiden & "')"
	
	stugdatabas.Execute(sql)
end if

if Request.Form("SPARAKNAPP6") \<\> "" THEN
	faciden = Request.Form("facid")
	stuggggiden = Request.Form("stuggggid")

	sql = "INSERT INTO Stug_faci_link(facID, StugID)" & \_
			" VALUES ('" & \_
			faciden & "','" & \_
			stuggggiden & "')"
			
	
	stugdatabas.Execute(sql)
end if

%>

<BODY>
<font face=tahoma size="2">
<hr color="000000">
<b>OBS!!! OBEHÖRIGA ÄGA EJ TILLTRÄDE!
<hr color="000000"></b>
<FORM METHOD="POST" ACTION="inmatning.asp">
<b>Ort</b><br>
Ortnamn:<INPUT TYPE="TEXT" NAME="ortnamnet"><BR>

Län:
<select name="lanidd"><%

sql = "select * from lan order by län"

set rs = stugdatabas.Execute(sql)

do until rs.eof

%\>
	\<option value="\<%=rs("lan_id")%\>"\>\<%=rs("län")%\>\</option\>
\<%
rs.movenext

loop

%></select>

<INPUT TYPE="SUBMIT" NAME="SPARAKNAPP1" VALUE="Spara">

<hr color="000000">
<b>Innehavare</b><br>
Privat uthyrare <input type="checkbox" name="privat"> <br>
Namn:<INPUT TYPE="TEXT" NAME="innamn"><BR>
Camping/stugby <input type="checkbox" name="camping"> <br>
Öppet tider:<INPUT TYPE="TEXT" NAME="indatum"><BR>
Full service:<INPUT TYPE="TEXT" NAME="intider"><BR>
Adress:<INPUT TYPE="TEXT" NAME="inadress"><BR>
Postnr:<INPUT TYPE="TEXT" NAME="inpostnr"><BR>
Ort:<INPUT TYPE="TEXT" NAME="inort"><BR>
Telefonnr:<INPUT TYPE="TEXT" NAME="intel"><BR>
E-post:<INPUT TYPE="TEXT" NAME="inepost"><BR>
Hemsida:<INPUT TYPE="TEXT" NAME="inhemsida"><BR>

<INPUT TYPE="SUBMIT" NAME="SPARAKNAPP3" VALUE="Spara">

<hr color="000000">
<b>Stugor</b><br>
Namn på stugan:<INPUT TYPE="TEXT" NAME="stugnamn"><BR>
Antal stugor av den typen:<INPUT TYPE="TEXT" NAME="antalstugor"><BR>
Innehavare:
<select name="inid">
<%
sql = "select * from Innehavare order by InnehavareID DESC"
set rs = stugdatabas.Execute(sql)
do until rs.eof
%>
<option value="<%=rs("InnehavareID")%>"><%=rs("Kontaktperson")%></option>
<%
rs.movenext
loop
%></select><br>

Antal bäddar:<INPUT TYPE="TEXT" NAME="antalbaddar"><BR>
Pris per natt:<INPUT TYPE="TEXT" NAME="prisdag"><BR>
Pris per vecka:<INPUT TYPE="TEXT" NAME="prisvecka"><BR>
Kommentarer:<INPUT TYPE="TEXT" NAME="kommentarer"><BR>
Ort:
<select name="ortid"><%
sql = "select * from Ort order by OrtID DESC"
set rs = stugdatabas.Execute(sql)
do until rs.eof
%>
<option value="<%=rs("OrtID")%>"><%=rs("Ortnamn")%></option>
<%
rs.movenext
loop
%></select><br>
Vägbeskrivning:<INPUT TYPE="TEXT" NAME="vag"><BR>

<INPUT TYPE="SUBMIT" NAME="SPARAKNAPP4" VALUE="Spara">
<hr color="000000">

<b>Bilder</b><br>
Bild namn:(Om du inte har någon bild, vänligen skriv tombild.gif)<INPUT TYPE="TEXT" NAME="bildurl"><BR>
Bildkommentar:<INPUT TYPE="TEXT" NAME="bildkommentar"><BR>
Stugnamn:
<select name="stuggid">
<%
sql = "select * from Stugor order by StugID DESC"
set rs = stugdatabas.Execute(sql)
do until rs.eof
%>
<option value="<%=rs("StugID")%>"><%=rs("Namn")%></option>
<%
rs.movenext
loop
%></select><br>

<INPUT TYPE="SUBMIT" NAME="SPARAKNAPP2" VALUE="Spara">

<hr color="000000">

<b>Aktiviteter</b><br>
Välj aktivitet:
<select name="aktiid">
<%
sql = "select * from Aktiviteter order by AktivitetsID DESC"
set rs = stugdatabas.Execute(sql)
do until rs.eof
%>
<option value="<%=rs("AktivitetsID")%>"><%=rs("Namn")%></option>
<%
rs.movenext
loop
%></select><br>

Stugnamn:
<select name="stugggid">
<%
sql = "select * from Stugor order by StugID DESC"
set rs = stugdatabas.Execute(sql)
do until rs.eof
%>
<option value="<%=rs("StugID")%>"><%=rs("Namn")%></option>
<%
rs.movenext
loop
%></select><br>

<INPUT TYPE="SUBMIT" NAME="SPARAKNAPP5" VALUE="Spara">
<br><br>

<hr color="000000">
<b>Faciliteter</b><br>
Välj facilitet
<select name="facid">
<%
sql = "select * from faciliteter order by facID DESC"
set rs = stugdatabas.Execute(sql)
do until rs.eof
%>
<option value="<%=rs("facID")%>"><%=rs("Namn")%></option>
<%
rs.movenext
loop
%></select><br>
Stugnamn:
<select name="stuggggid">
<%
sql = "select * from Stugor order by StugID DESC"
set rs = stugdatabas.Execute(sql)
do until rs.eof
%>
<option value="<%=rs("StugID")%>"><%=rs("Namn")%></option>
<%
rs.movenext
loop
%></select><br>

<INPUT TYPE="SUBMIT" NAME="SPARAKNAPP6" VALUE="Spara">
<br><br>

</FORM>

</BODY>
</HTML>

@nderss avatar@ndersMedlem sedan juni 200032 967 inlägg
#10

Felmeddelandet tyder på att du har en SQL-fråga (en av dina inserts), som är felaktigt skriven. Fält som i tabellen är definierade som text skall ha apostrofer runt värdet i SQL-frågan, men inte talvärden.

Det är lite svårt när du postar så helvetiskt mycket kod.

Alltså: vilken SQL-fråga är det felmeddelandet avser? Fälttyper i tabellen?

Mvh,

------------------
http://free.webforum.nu/wf/Forum1/HTML/004053.html

lenizs avatarlenizMedlem sedan aug. 2001676 inlägg
#11

Hej!

Då ska jag se om jag lyckas hitta nåt sånt fel själv nån stans i den hihi, helvetiskt långa koden =)

Tack för all hjälp!

Mvh Lena

287 ms totalt · 4 externa anrop · v20260731065814-full.1dc6f849
127 ms — deklarationer (db)
0 ms — hämta statistik (cache)
157 ms — hämta tråd, inlägg och bilagor (db)
122 ms — ändringar (db)