June 14th, 2002, 01:23 AM
|
|
Contributing User
|
|
Join Date: Dec 2002
Posts: 14,575
Time spent in forums: < 1 sec
Reputation Power: 22
|
|
|
<i><b>Originally posted by : Anurag Verma (anuragv06@indiatimes.com)</b></i><br />Hi,<br />Nothing special with my code, it is somewhat like this:<br /><%@ Page Language="vb" ASPCompat="true" %><br /><!-- #include file="module.inc" --><br /><%<br />Dim st As String = Request.ServerVariables ("HTTP_REFERER")<br />chkReferer(st)<br />%><br /><html><br /><head><br /><link rel="stylesheet" href="main.css" type="text/css"><br /><script language="JavaScript" src="validations.js"></script><br /><script language=javascript><br />function validate()<br />{<br /> var fl = 0;<br /><br /> if(isEmptyString(document.frm_1.txt_name.value.toS tring()) && fl == 0)<br /> {<br /> alert("Enter Site Name");<br /> document.frm_1.txt_name.value="";<br /> document.frm_1.txt_name.focus();<br /> fl = 1;<br /> }<br /><br /> if(isEmptyString(document.frm_1.txt_WebName.value. toString()) && fl == 0)<br /> {<br /> alert("Enter Web Address Name");<br /> document.frm_1.txt_WebName.value="";<br /> document.frm_1.txt_WebName.focus();<br /> fl = 1;<br /> }<br /><br /> if (fl == 0)<br /> {<br /> document.frm_1.action = "site.aspx";<br /> document.frm_1.submit();<br /> return true;<br /> }<br /> else<br /> {<br /> return false;<br /> }<br />}<br /><br />function setCancel_action()<br />{<br /> document.frm_1.action = "index.aspx";<br /> document.frm_1.submit();<br />}<br /></script><br /></head><br /><body bgcolor="#FFFFFF" topmargin=0 bottommargin=0 leftmargin=0 rightmargin=0 ><br /><%headerMain()%><br /><p> </p><br /><%<br />Dim fl As Integer = 0<br />Dim objRS<br />objRS = server.createobject("adodb.recordset")<br /><br />if trim(request.form("cmdSubmit")) = "Finish" then<br /> Dim txt_name As String = trim(Request("txt_name"))<br /> Dim txt_WebName As String = trim(Request.Form("txt_WebName"))<br /><br /> session("page_name") = txt_name<br /><br /> Dim strSQL As String<br /> strSQL = "SELECT * FROM Site_Info where Email_VC = '" & session("email") & "' AND (SiteName_VC = '" & txt_name & "' OR WeBAddName_VC = '"& txt_WebName &"')"<br /> objRS.open(strSQL,objConn,2,4)<br /><br /> if (objRS.bof and objRS.eof) then<br /> objRS.close()<br /> strSQL = "INSERT INTO Site_Info (SiteName_VC, WeBAddName_VC, Email_VC) VALUES ("& _<br /> "'"& txt_name &"', '"& txt_WebName &"', '"& session("email") &"')"<br /> objRS.open(strSQL,objConn,2,4)<br /> else<br /> response.write("<center>Sorry, site already exists, try another name and web address<br></center>")<br /> fl = 1<br /> objRS.close()<br /> end if<br /><br /> strSQL = "SELECT max(SiteID_NU) AS sid FROM Site_Info WHERE Email_VC = '" & session("email") & "'"<br /> objRS.open(strSQL,objConn,2,4)<br /> if not (objRS.bof and objRS.eof) then<br /> session("siteid") = objRS.Fields("sid").value<br /> end if<br /> objRS.close()<br />else<br /> Dim txt_name As String = trim(Request("txt_name"))<br /> Dim txt_address As String = trim(Request.Form("txt_address"))<br /> Dim txt_city As String = trim(Request.Form("txt_city"))<br /> Dim txt_country As String = trim(Request.Form("txt_country"))<br /> Dim txt_zip As String = trim(Request.Form("txt_zip"))<br /> Dim txt_phone As String = trim(Request.Form("txt_phone"))<br /> Dim txt_fax As String = trim(Request.Form("txt_fax"))<br /><br /> Dim strSQL As String<br /> strSQL = "SELECT * FROM Company_Info where Email_VC = '" & session("email") & "' AND Name_VC = '" & txt_name & "'"<br /> objRS.open(strSQL,objConn,2,4)<br /> if (objRS.bof and objRS.eof) then<br /> objRS.close()<br /> strSQL = "INSERT INTO Company_Info (Name_VC, Address_VC, City_VC, Country_VC, Zip_VC, Telephone_VC, Fax_VC, Email_VC) VALUES ("& _<br /> "'"& txt_name &"', '"& txt_address &"', '"& txt_city &"', '"& txt_country &"', '"& txt_zip &"', '"& txt_phone &"', '"& txt_fax &"', '"& session("email") &"')"<br /> objRS.open(strSQL,objConn,2,4)<br /> end if<br />end if<br />..........................................<br />and some more script<br /><br />Please can you advice me what are the probable reasons.<br /><br /><br /><br />------------<br />charles at 6/11/2002 10:12:00 AM<br /><br />I would like to help, but I would need to see the code, and know what Mode (SQL, In process, off, State Server)you are using for ASP.NET Session management<br /><br /><br />------------<br />Anurag at 6/11/2002 3:17:32 AM<br /><br />Hi everybody,<br /><br />Can anyone help me out how to stop sudden destroy of some session variables in AASP.Net project. This is more common when I am testing live. You can have a view at: <br /><br />http://213.133.194.200/koenig/index.aspx<br /><br />Please reply me at anuragv06@indiatimes.com<br /><br />Thanks,<br />Anurag
|
ASP Free Forums Sponsor:
Del.icio.us
Digg
Google
Spurl
Blink
Furl
Simpy
Y! MyWeb
Linear Mode
