database

[gudipati]

checkbox****

<input name="current" value="current" type="checkbox" id="current" checked>
code for insertion into database:

<%

If( (Request("SUBMI T") <> "") and(Request("SU BMIT") = "SUBMIT") ) Then
set rstinsert = server.CreateOb ject("ADODB.Rec ordset")

if Request("radiob utton") = "Ms" then
salutation = Ms
elseif Request("radiob utton") = "Mrs" then

salutation = Mrs
else
salutation = Mr
end if

lastName=reques t("lastName")
middleName=requ est("middleName ")
firstName=reque st("firstName" )
if Request("rbpost name")= "Jr" then
postName=Jr
else
postName=Sr
end if
dateBorn=reques t("dateBorn")
dateExpired=req uest("dateExpir ed")
cemetaryDetails =request("cemet aryDetails")
VisitationDetai ls=request("Vis itationDetails" )
ServicesDetails =request("Servi cesDetails")
if Request("curren t") = "current" then
current = 1
else
current= 0
end if
' dateExpired=Now ()
sqlinsert = "insert into visitations(sal utation,lastNam e,middleName,fi rstName,postNam e,dateBorn,date Expired,cemetar yDetails,Visita tionDetails,Ser vicesDetails,cu rrent) values('" & request("radiob utton") & "','" & lastName & "' , '" & middleName & "', '" & firstName & "','" & request("rbpost name") & "','" & dateBorn & "','" & dateExpired & "','" & cemetaryDetails & "' ,'" & VisitationDetai ls & "','" & ServicesDetails & "', " & current & ")"

' dbCon.Execute SQL_query
rstinsert.Open sqlinsert,dbCon ,3,2
' response.Write( "added")
Response.Redire ct("visitations .asp?valid=true ")
'response.write (sqlinsert)
end if
%>

this is my code.every thing is stored in database.except checkbox(curren t) value .can u suggest for that how to store?

[shweta123]

Hi,

Do you want to check that, if the checkbox is checked or not before submitting the form? You can check that in some javascript function.
e.g.

function checkfunction()
{
If(document.get ElementById('cu rrent').checked )
{
document.getEle mentById('curre nt').value = "current";
}
else
{
// give some other value to checkbox
}
}

get the value of checkbox using

Dim valueCheck
valueCheck = Request("curren t")


Is this that you want to do?

checkbox****

<input name="current" value="current" type="checkbox" id="current" checked>
code for insertion into database:

<%

If( (Request("SUBMI T") <> "") and(Request("SU BMIT") = "SUBMIT") ) Then
set rstinsert = server.CreateOb ject("ADODB.Rec ordset")

if Request("radiob utton") = "Ms" then
salutation = Ms
elseif Request("radiob utton") = "Mrs" then

salutation = Mrs
else
salutation = Mr
end if

lastName=reques t("lastName")
middleName=requ est("middleName ")
firstName=reque st("firstName" )
if Request("rbpost name")= "Jr" then
postName=Jr
else
postName=Sr
end if
dateBorn=reques t("dateBorn")
dateExpired=req uest("dateExpir ed")
cemetaryDetails =request("cemet aryDetails")
VisitationDetai ls=request("Vis itationDetails" )
ServicesDetails =request("Servi cesDetails")
if Request("curren t") = "current" then
current = 1
else
current= 0
end if
' dateExpired=Now ()
sqlinsert = "insert into visitations(sal utation,lastNam e,middleName,fi rstName,postNam e,dateBorn,date Expired,cemetar yDetails,Visita tionDetails,Ser vicesDetails,cu rrent) values('" & request("radiob utton") & "','" & lastName & "' , '" & middleName & "', '" & firstName & "','" & request("rbpost name") & "','" & dateBorn & "','" & dateExpired & "','" & cemetaryDetails & "' ,'" & VisitationDetai ls & "','" & ServicesDetails & "', " & current & ")"

' dbCon.Execute SQL_query
rstinsert.Open sqlinsert,dbCon ,3,2
' response.Write( "added")
Response.Redire ct("visitations .asp?valid=true ")
'response.write (sqlinsert)
end if
%>

this is my code.every thing is stored in database.except checkbox(curren t) value .can u suggest for that how to store?