session issues

[lyealain]

[PHP]<%
If Session("userna me") = "" Then
Response.Redire ct("/CLS/Login.asp")
End If

Dim conn
Dim connectstr
Dim db_name, db_username, db_userpassword
Dim db_server
Dim res

db_server = "localhost"
db_name = "cls1"
db_username = "root"
db_userpassword = "newpwd"

connectstr = "Driver={My SQL ODBC 3.51 Driver};SERVER= " & db_server & ";DATABASE= " & db_name & ";UID=" & db_username & ";PWD=" & db_userpassword

Set conn = Server.CreateOb ject("ADODB.Con nection")
conn.Open connectstr

'---------------------------------
dim part, fdate,desc,pic, p,p2,p3,p4,p5,p 6, a,a2,a3,a4,a5,a 6,suc,suc2,suc3 ,suc4,suc5,suc6 ,cc,cc2,cc3,cc4 ,cc5,cc6, soc,soc2,soc3,s oc4,soc5,soc6


session("part") = request.form("P art")
session("fdate" )= Request.form("F Adate")
session("desc") = Request.form("D esc")
session("pic")= Request.form("m yFile")
session("p")= Request.form("p lan1")
session("p2") = Request.form("p lan2")
session("p3") = Request.form("p lan3")
session("p4") = Request.form("p lan4")
session("p5") = request.form("p lan5")
session("p6") = Request.form("p lan6")
session("a") = Request.form("a ctual1")
session("a2") = Request.form("a ctual2")
session("a3") = Request.form("a ctual3")
session("a4") = Request.form("a ctual4")
session("a5") = Request.form("a ctual5")
session("a6") = Request.form("a ctual6")
session("suc") = request.form("S uppCom")
session("suc2") = Request.form("S uppCom2")
session("suc3") = Request.form("S uppCom3")
session("suc4") = Request.form("S uppCom4")
session("suc5") = Request.form("S uppCom5")
session("suc6") = Request.form("S uppCom6")
session("cc") = Request.form("C ustCom")
session("cc2") = Request.form("C ustCom2")
session("cc3") = request.form("C ustCom3")
session("cc4") = Request.form("C ustCom4")
session("cc5") = Request.form("C ustCom5")
session("cc6") = Request.form("C ustCom6")
session("soc") = Request.form("S ourceCom")
session("soc2") = Request.form("S ourceCom2")
session("soc3") = Request.form("S ourceCom3")
session("soc4") = Request.form("S ourceCom4")
session("soc5") = Request.form("S ourceCom5")
session("soc6") = Request.form("S ourceCom6")

'-----------------------------------------------------------------
if session("part") = "" then
response.redire ct("WeeklyRepor t.asp?res=blank Part")
end if

dim qrycheck, rscheck
qrycheck="selec t PartNumber from weeklyreport where PartNumber="&se ssion("part")&" "
set rscheck = conn.execute(qr ycheck)


'----------------------------------------------------------------




if not rscheck.eof then
response.redire ct("WeeklyRepor t.asp?res=exist ")

elseif session("fdate" ) = "" then
response.redire ct("WeeklyRepor t.asp?res=blank Date")

elseif session("desc") = "" then
response.redire ct("WeeklyRepor t.asp?res=blank Desc")

elseif session("part") = "" then
response.redire ct("WeeklyRepor t.asp?res=blank ")

elseif session("p") = "" then
response.redire ct("WeeklyRepor t.asp?res=blank PlanDate")

elseif session("p2") = "" then
response.redire ct("WeeklyRepor t.asp?res=blank PlanDate")

elseif session("p3") = "" then
response.redire ct("WeeklyRepor t.asp?res=blank PlanDate")

elseif session("p4") = "" then
response.redire ct("WeeklyRepor t.asp?res=blank PlanDate")

elseif session("p5") = "" then
response.redire ct("WeeklyRepor t.asp?res=blank PlanDate")




'-----------------------------------------------------------------
elseif cdate (session("p")) > cdate (session("fdate ")) then
response.redire ct("WeeklyRepor t.asp?res=dateO ver")

else if cdate (session("p2")) > cdate (session("fdate ")) then
response.redire ct("WeeklyRepor t.asp?res=dateO ver")

elseif cdate (session("p3")) > cdate (session("fdate ")) then
response.redire ct("WeeklyRepor t.asp?res=dateO ver")

elseif cdate (session("p4")) > cdate (session("fdate ")) then
response.redire ct("WeeklyRepor t.asp?res=dateO ver")

elseif cdate(session(" p5")) > cdate(session(" fdate")) then
response.redire ct("WeeklyRepor t.asp?res=dateO ver")



elseif cdate(session(" a")) > cdate(session(" p")) then
response.redire ct("WeeklyRepor t.asp?res=Actua lOverPlan")

elseif cdate(session(" a2")) > cdate(session(" p2")) then
response.redire ct("WeeklyRepor t.asp?res=Actua lOverPlan")

elseif cdate(session(" a3")) > cdate(session(" p3")) then
response.redire ct("WeeklyRepor t.asp?res=Actua lOverPlan")

elseif cdate(session(" a4")) > cdate(session(" p4")) then
response.redire ct("WeeklyRepor t.asp?res=Actua lOverPlan")

elseif cdate(session(" a5")) > cdate(session(" fdate")) then
response.redire ct("WeeklyRepor t.asp?res=Actua lOverPlan")

else


dim rsInsert, qryInsert

qryInsert = "insert into weeklyreport (PartNumber,FA_ Date,Descriptio n,Image_Path,Pl an1,Plan2,Plan3 ,Plan4,Plan5,Pl an6, Actual1,Actual2 ,Actual3,Actual 4,Actual5,Actua l6,Supp_comm,Su pp_comm2,Supp_c omm3, Supp_comm4,Supp _comm5,Supp_com m6, Cust_comm,Cust_ comm2,Cust_comm 3,Cust_comm4,Cu st_comm5,Cust_c omm6, Sourcing_comm,S ourcing_comm2,S ourcing_comm3,S ourcing_comm4,S ourcing_comm5, Sourcing_comm6)
values("&sessio n("part")&","&s ession("fdate") &","&session("d esc")&","&sessi on("pic")&", "&session("p")& ","&session("p2 ")&","&session( "p3")&","&sessi on("p4")&","&se ssion("p5") &","&session("a ")&","&session( "a2")&","&sessi on("a3")&","&se ssion("a4")&"," &session("a5 ") &","&session("a 6")&","&session ("suc")&","&ses sion("suc2")&", "&session("suc3 ")&"," &session("suc4" )&","&session(" suc5")&","&sess ion("cc")&","&s ession("cc2")&" ,"
&session("cc3") &","&session("c c4")&","&sessio n("cc5")&","&se ssion("cc6")&", " &session("soc") &","&session("s oc2")&","&sessi on("soc3")&","& session("soc4") &"," &session("soc5" )&","&session(" soc6")&")"

set rsInsert = conn.execute(qr yInsert)


session("part") = ""
session("fdate" )= ""
session("desc") = ""
session("pic")= ""
session("p") = ""
session("p2") = ""
session("p3") = ""
session("p4") = ""
session("p5") = ""
session("p6") = ""
session("a ") = ""
session("a2 ") = ""
session("a3") = ""
session("a4") = ""
session("a5") = ""
session("a6") = ""
session("suc") = ""
session("suc2") = ""
session("suc3") = ""
session("suc4") = ""
session("suc5") = ""
session("suc6") = ""
session("cc") = ""
session("cc2") = ""
session("cc3") = ""
session("cc4") = ""
session("cc5") = ""
session("cc6") = ""
session("soc") = ""
session("soc2") = ""
session("soc3") = ""
session("soc4") =""
session("soc5") = ""
session("soc6") =""


response.redire ct("WeeklyRepor t.asp?res=creat ed")

end if
end if

%>[/PHP]
before i use session ... all data can go in to database... but after i use session .. below is the error..

[PHP]
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[MySQL][ODBC 3.51 Driver][mysqld-4.1.22-community-nt]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '06/05/2007,06/07/2007,06/11/2007,06/04/2007,06/05/2007,06/01/2007,06/01/2007,06/' at line 1

/CLS1/WeeklyReport/WeeklyReport2.a sp, line 146 [/PHP]

line 146 is
[PHP]set rsInsert = conn.execute(qr yInsert)[/PHP]

i declared the date as varchar(45) .. it works fine previously..pls help thanks..

[jhardman]

the difference has to be in qryInsert. Try the following with and without the session variables:

response.write "<!-- qryInsert: " & qryInsert & " -->" & vbNewLine

Does this line print exactly the same in both cases? Tell me what you get.

Jared

[lyealain]

the difference has to be in qryInsert. Try the following with and without the session variables:

response.write "<!-- qryInsert: " & qryInsert & " -->" & vbNewLine

Does this line print exactly the same in both cases? Tell me what you get.

Jared

i don understand what u meant.. u meant try not to put in qryInsert??

[improvcornartist]

Have you tried placing the session variables within quotes in qryInsert (line 144)?

qryInsert = "insert into weeklyreport (PartNumber, FA_Date, Description, Image_Path, Plan1, Plan2, Plan3, Plan4, Plan5, Plan6, Actual1, Actual2, Actual3, Actual4, Actual5, Actual6, Supp_comm, Supp_comm2, Supp_comm3, Supp_comm4, Supp_comm5, Supp_comm6, Cust_comm, Cust_comm2, Cust_comm3, Cust_comm4, Cust_comm5, Cust_comm6, Sourcing_comm, Sourcing_comm2, Sourcing_comm3, Sourcing_comm4, Sourcing_comm5, Sourcing_comm6) values("' & session("part") & "', '" & session("fdate") & "','" & session("desc") & "','" & session("pic") & "','" & session("p") & "','" & session("p2") & "','" & session("p3") & "','" & session("p4") & "','" & session("p5") & "','" & session("a") & "','" & session("a2") & "','" & session("a3") & "','" & session("a4") & "','" & session("a5") & "','" & session("a6") & "','" & session("suc") & "','" & session("suc2") & "','" & session("suc3") & "','" & session("suc4") & "','" & session("suc5") & "','" & session("cc") & "','" & session("cc2") & "','" & session("cc3") & "','" & session("cc4") & "','" & session("cc5") & "','" & session("cc6") & "','" & session("soc") & "','" & session("soc2") & "','" & session("soc3") & "','" & session("soc4") & "','" & session("soc5") & "','" & session("soc6") & "')"

[lyealain]

[quote=improvcor nartist]Have you tried placing the session variables within quotes in qryInsert (line 144)?

thanks for reply..!!! .. but what do u meant by placing the session variable within quotes in qryInsert??? wht is the quotes for session???

[improvcornartist]

thanks for reply..!!! .. but what do u meant by placing the session variable within quotes in qryInsert??? wht is the quotes for session???

I mean using single quotes in your qryInsert, like I did in the code I posted in my other reply.