webForumDet fria alternativet
Logga in / Bli medlem

får inte med alla värden

ASP

10 svar · 522 visningar · startad av WebbisNet

WebbisNetMedlem sedan feb. 20032 027 inlägg
Frågan#1

I just denna lilla del får jag inte med kön eller personnummer, kön kollar jag med varSex = FriendlySQL(Request.Form ("chkSex")) och personnumret kollas med
} else if (document.f.txtPersonnr_day.value==""
|| document.f.txtPersonnr_month.value==""
|| document.f.txtPersonnr_year.value==""){
alert("Du måste fylla i födelsedata.");
return false;

Varför sparas alla värden utom just dessa 2????

<table width="400">
<tr><td>
&nbsp;
</td><td width="200">	 
<input type="radio" name="chkSex" value="M" checked="">Man&nbsp;
<input type="radio" name="chkSex" value="F">Kvinna&nbsp;
<input type="radio" name="chkSex" value="P">Par
</td></tr>
<tr><td width="200">

<font color="#ff0000">*</font><strong class="definition">Födelsedata:</strong></font>
</td><td class="textbox">
<% PrintDateBox2 "txtPersonnr", txtPersonnr %> 
</td></tr>
</table>
voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
#2

är den "inne" i din <form></form> taggar?

WebbisNetMedlem sedan feb. 20032 027 inlägg
#3

ja det är den

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

Om du visar någon vettig kod, typ hur det färdiga formuläret ser ut, och den kod där du försöker hämta värdena kanske någon kan hjälpa dig.

WebbisNetMedlem sedan feb. 20032 027 inlägg
#5

Den aktuella delen är fetmarkerad

Här är formuläret

<form name="f" action="saveMember.asp" onSubmit="return validateForm()" method="post">
<table width="600" cellpadding="0" cellspacing="0" border="0">
<tr>
<td colspan="2">

<strong class="definition3">Användaruppgifter<strong><br>
<table width="400">
<tr><td width="200">
<font color="#ff0000">*</font><strong class="definition">Användarnamn</strong></font>
</td><td width="200">	 
<input class="textbox" name="txtUsername" size="15" maxlength="20">
</td></tr>
<tr><td width="200">
<font color="#ff0000">*</font><strong class="definition">Lösenord<strong></font>
</td><td width="200">
<input class="textbox" type="password" name="txtPassword" size="15" maxlength="15">
</td></tr>
<tr><td>&nbsp;</td></tr>
</table>

</td>
</tr>
<hr>
  <tr>
<td colspan="2">
<strong class="definition3">Personliga uppgifter<strong><br>
<table width="400">
<tr><td width="200">
<font color="#ff0000">*</font><strong class="definition">Förnamn<strong></font>
</td><td width="200">	 
<input class="textbox" name="txtFornamn" size="15" maxlength="20">
</td></tr>
<tr><td width="200">
<font color="#ff0000">*</font><strong class="definition">Efternamn</strong></font>
</td><td width="200">
<input class="textbox" name="txtEfternamn" size="15" value="<%=Request.Querystring("evalue")%>" maxlength="15"> 
</td></tr>
<tr><td>&nbsp;</td></tr>
</table>

	
</td></tr>
<tr><td>
   
   
[B]<table width="400">
<tr><td>
&nbsp;
</td><td width="200">	 
<input type="radio" name="chkSex" value="M" checked="">Man&nbsp;
<input type="radio" name="chkSex" value="F">Kvinna&nbsp;
<input type="radio" name="chkSex" value="P">Par
</td></tr>
<tr><td width="200">

<font color="#ff0000">*</font><strong class="definition">Födelsedata:</strong></font>
</td><td class="textbox">
<% PrintDateBox2 "txtPersonnr", txtPersonnr %> 
</td></tr>
</table>[/B]

</td></tr>
<tr><td>

<table width="400">
<tr><td width="200">
<strong class="definition">Län och Stad</strong>
</td><td width="200" class="textbox">	 
<!--#include virtual="/registration/lan-stad.asp"--> 
</td></tr>
</table>

</td></tr>
<tr><td>

<table width="400">
<tr><td width="200">
<strong class="definition">Hemsida</strong>
</td><td width="200">	 
<input class="textbox" name="txtWebsite" value="Http://" size="40" maxlength="50">
</td></tr>
<tr><td width="200">

<font color="#ff0000">*</font><strong class="definition">E-post</strong></font>
</td><td width="200">
<input class="textbox" name="txtEmail" size="40" maxlength="50">
</td></tr>
</table>	
	

</td></tr>
<tr><td>
<tr>
</table>

<input class="button" type="submit" value="Slutför registrering">
</form>

och mottagande sidan

		varUsername = FriendlySQL(Request.Form ("txtUsername"))
		varPassword = Request.Form ("txtPassword")
		varFornamn= FriendlySQL(Request.Form ("txtFornamn"))
		varEfternamn= FriendlySQL(Request.Form ("txtEfternamn"))
		varCommunity = FriendlySQL(Request.Form("txtCommunity"))
		varCity = FriendlySQL(Request.Form ("underKommun"))
		[B]varSex = FriendlySQL(Request.Form ("chkSex"))[/B]
		varRegDate = now()
		varWebsite = FriendlySQL(Request.Form ("txtWebsite"))
		varEmail = FriendlySQL(Request.Form ("txtEmail"))
		[B]varPersonnr = FriendlySQL(Request.Form ("txtPersonnr"))[/B]
		'varRID = FriendlySQL(Request.Querystring ("rID"))
		'varPres= FriendlySQL(Request.Form("txtPres"))
		'varTips= FriendlySQL(Request.Form("txtTipsadAv"))

varRubrik = "Välkommen till Webbisen.com"
varMeddelande = "Välkommen till mitt community som jag har valt att kalla Webbisen." & _
" Här kan du komma i kontakt med andra medlemmar och knyta nya kontakter"
varOvrigt="Webbisen är under uppbyggnad men det är ett fullt fungerande community." &_
" Detta betyder att fler funktioner tillkommer och att buggar fixas när de upptäcks. " &_
" Om du gillar att vara här och vill sponsra mitt arbete så kan du bli VIP-medlem. "&_
" Du kan läsa mer om detta under länken WebbisInfo - Info om vip " &_
" i menyn."
varBryt = vbCrLf & vbCrLf
varSlut = "Har du fler frågor så ser jag att du använder Åsikter som du hittar i menyn under Skriva " &_
" /Webbisen.com med Crew"
varTotal = varMeddelande & varBryt & varOvrigt & varBryt & varSlut

SET objConn = Connect()

	SQL = "INSERT INTO tblUsers"
	SQL = SQL & "(username, userPass, Fornamn, Efternamn, Community, City, Sex, Registration, Website, email, persnr) "
	SQL = SQL & "VALUES('"& varUsername &"','"& varPassword &"','"& varFornamn &"','"& varEfternamn &"','"&varCommunity &"','"& varCity &"','"& varSex &"','"& varRegDate &"','"& varWebsite &"','"& varEmail &"','"& varPersonnr &"')"
	varID=session("userID")
	objConn.Execute(SQL)
@nderss avatar@ndersMedlem sedan juni 200032 967 inlägg
#6

Men snälla - låt oss se det färdiga formuläret. Ska vi gissa vad resultatet av <% PrintDateBox2 "txtPersonnr", txtPersonnr %> blir?

WebbisNetMedlem sedan feb. 20032 027 inlägg
#7

när jag skriver ut med
response.write varSex
response.write varPersonnr
response.end

får jag bara med kön men i db blir det inget på de 2

<input type="radio" name="chkSex" value="M" checked="">Man&nbsp;
<input type="radio" name="chkSex" value="F">Kvinna&nbsp;
<input type="radio" name="chkSex" value="P">Par
</td></tr>
<tr><td width="200">

<font color="#ff0000">*</font><strong class="definition">Födelsedata:</strong></font>
</td><td class="textbox">
<select name="txtPersonnr_day">
<option value=""></option><option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">6</option>

<option value="7">7</option>
<option value="8">8</option>
<option value="9">9</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
<option value="13">13</option>
<option value="14">14</option>
<option value="15">15</option>

<option value="16">16</option>
<option value="17">17</option>
<option value="18">18</option>
<option value="19">19</option>
<option value="20">20</option>
<option value="21">21</option>
<option value="22">22</option>
<option value="23">23</option>
<option value="24">24</option>

<option value="25">25</option>
<option value="26">26</option>
<option value="27">27</option>
<option value="28">28</option>
<option value="29">29</option>
<option selected value="30">30</option>
<option value="31">31</option>
</select> - <select name="txtPersonnr_month">

<option value=""></option><option value="1">Jan</option>
<option value="2">Feb</option>
<option value="3">Mar</option>
<option value="4">Apr</option>
<option value="5">Maj</option>
<option value="6">Jun</option>
<option value="7">Jul</option>
<option value="8">Aug</option>
<option value="9">Sep</option>

<option value="10">Okt</option>
<option value="11">Nov</option>
<option selected value="12">Dec</option>
</select> - <select name="txtPersonnr_year">
<option value=""></option><option value="1932">1932</option>
<option value="1933">1933</option>
<option value="1934">1934</option>
<option value="1935">1935</option>

<option value="1936">1936</option>
<option value="1937">1937</option>
<option value="1938">1938</option>
<option value="1939">1939</option>
<option value="1940">1940</option>
<option value="1941">1941</option>
<option value="1942">1942</option>
<option value="1943">1943</option>
<option value="1944">1944</option>

<option value="1945">1945</option>
<option value="1946">1946</option>
<option value="1947">1947</option>
<option value="1948">1948</option>
<option value="1949">1949</option>
<option value="1950">1950</option>
<option value="1951">1951</option>
<option value="1952">1952</option>
<option value="1953">1953</option>

<option value="1954">1954</option>
<option value="1955">1955</option>
<option value="1956">1956</option>
<option value="1957">1957</option>
<option value="1958">1958</option>
<option value="1959">1959</option>
<option value="1960">1960</option>
<option value="1961">1961</option>
<option value="1962">1962</option>

<option value="1963">1963</option>
<option value="1964">1964</option>
<option value="1965">1965</option>
<option value="1966">1966</option>
<option value="1967">1967</option>
<option value="1968">1968</option>
<option value="1969">1969</option>
<option value="1970">1970</option>
<option value="1971">1971</option>

<option value="1972">1972</option>
<option value="1973">1973</option>
<option value="1974">1974</option>
<option value="1975">1975</option>
<option value="1976">1976</option>
<option value="1977">1977</option>
<option value="1978">1978</option>
<option value="1979">1979</option>
<option value="1980">1980</option>

<option value="1981">1981</option>
<option value="1982">1982</option>
<option value="1983">1983</option>
<option value="1984">1984</option>
<option value="1985">1985</option>
<option value="1986">1986</option>
<option value="1987">1987</option>
<option value="1988">1988</option>
<option value="1989">1989</option>

<option value="1990">1990</option>
<option value="1991">1991</option>
<option value="1992">1992</option>
<option value="1993">1993</option>
<option value="1994">1994</option>
</select> 
</td></tr>
</table>
@nderss avatar@ndersMedlem sedan juni 200032 967 inlägg
#8

Du har ju inget fält i ditt formulär som heter txtPersonnr.

WebbisNetMedlem sedan feb. 20032 027 inlägg
#9

@nders skrev:

Du har ju inget fält i ditt formulär som heter txtPersonnr.

Hur ska jag skriva i formuläret när subben för personnumret ser ut så här

Sub PrintDateBox2(boxname,vdate)
	dim strYearValue,strMonthValue,strDayValue

	if vdate <> "invalid" then
		strYearValue = trim(year(vdate))
		strMonthValue = trim(month(vdate))
		strDayValue = trim(day(vdate))
	else
		strYearValue = "-1"
		strMonthValue = "-1"
		strDayValue = "-1"
	end if

	redim months(11)
	months(0) = "Jan"
	months(1) = "Feb"
	months(2) = "Mar"
	months(3) = "Apr"
	months(4) = "Maj"
	months(5) = "Jun"
	months(6) = "Jul"
	months(7) = "Aug"
	months(8) = "Sep"
	months(9) = "Okt"
	months(10) = "Nov"
	months(11) = "Dec"

	dim i

	'dag
	Response.Write "<select name=""" & boxname & "_day"">" & vbCrLf
	response.write "<option value=""""></option>"
	for i = 1 to 31
		Response.Write "<option"
		if cint(i) = cint(strDayValue) then
			Response.Write " selected"
		end if
		Response.Write " value=""" & i & """>" & i & "</option>" & vbCrLf
	next
	Response.Write "</select> - "

	'månad
	Response.Write "<select name=""" & boxname & "_month"">" & vbCrLf
	response.write "<option value=""""></option>"
	for i = 1 to 12
		Response.Write "<option"
		if cint(i) = cint(strMonthValue) then
			Response.Write " selected"
		end if
		Response.Write " value=""" & i & """>" & months(i - 1) & "</option>" & vbCrLf
	next
	Response.Write "</select> - "

	'år
	Response.Write "<select name=""" & boxname & "_year"">" & vbCrLf
	response.write "<option value=""""></option>"
	for i = year(now)-75 to year(now)-13
		Response.Write "<option"
		if cint(i) = cint(strYearValue) then
			Response.Write " selected"
		end if
		Response.Write " value=""" & i & """>" & i & "</option>" & vbCrLf
	next
	Response.Write "</select>"

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

Varför ska du ändra formuläret?

Det är väl lättast att ändra i din request?

voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
#11
varPersonnr = FriendlySQL(CDate(Request.Form ("txtPersonnr_year") & "-" & Request.Form ("txtPersonnr_month") &"-" & Request.Form ("txtPersonnr_day")))

Då du har 3 <select> med 3 olika namn måste du sammanfoga dom till 1. Varför chkSex inte fungera ser jag inte just nu ;)

284 ms totalt · 4 externa anrop · v20260731065814-full.86ec41c2
141 ms — deklarationer (db)
0 ms — hämta statistik (cache)
141 ms — hämta tråd, inlägg och bilagor (db)
141 ms — ändringar (db)