I'm comfused with creating Session("Variables") - please help 2

TonyU · Jul 17, 2002

[tt]
Ok guys here's the deal, I've created a form in dreamweaver that inserts into an access database (no problem there)

Here's the problem
I need to create variables of all the fiels in order to request the data just entered on my results page.

Here's my code
Note: I checked the database and the inserting works fine.

<%@LANGUAGE="VBSCRIPT"%>

<%
' *** Edit Operations: declare variables

MM_editAction = CStr(Request("URL&quot

)
If (Request.QueryString <> "&quot

Then
MM_editAction = MM_editAction & "?" & Request.QueryString
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert&quot

) <> "&quot

MM_columns = Split(MM_columnsStr, "|&quot

' set the form values
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))
Next

' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And Request.QueryString <> "&quot

Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "&quot

Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If

End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

If (CStr(Request("MM_insert&quot

) <> "&quot

Then

' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
FormVal = MM_fields(i+1)
MM_typeArray = Split(MM_columns(i+1),",&quot

Delim = MM_typeArray(0)
If (Delim = "none&quot

Then Delim = ""
AltVal = MM_typeArray(1)
If (AltVal = "none&quot

Then AltVal = ""
EmptyVal = MM_typeArray(2)
If (EmptyVal = "none&quot

Then EmptyVal = ""
If (FormVal = "&quot

Then
FormVal = EmptyVal
Else
If (AltVal <> "&quot

Then
FormVal = AltVal
ElseIf (Delim = "'&quot

Then ' escape quotes
FormVal = "'" & Replace(FormVal,"'","''&quot

& "'"
Else
FormVal = Delim + FormVal + Delim
End If
End If
If (i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End if
MM_tableValues = MM_tableValues & MM_columns(i)
MM_dbValues = MM_dbValues & FormVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & &quot

values (" & MM_dbValues & &quot

"
If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command&quot

MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
'I'm sure I'm setting my sessions wrong

'Session("form&quot

= Request.Form("requested_date&quot

'Session("form&quot

= Request.Form("pickup_delivery_date&quot

'Session("form&quot

= Request.Form("task&quot

'Session("form&quot

= Request.Form("ar&quot

'Session("form&quot

= Request.Form("jobnumber&quot

'Session("form&quot

= Request.Form("client&quot

'Session("form&quot

= Request.Form("project&quot

'Session("form&quot

= Request.Form("address&quot

'Session("form&quot

= Request.Form("city&quot

'Session("form&quot

= Request.Form("state&quot

'Session("form&quot

= Request.Form("zip&quot

'Session("form&quot

= Request.Form("contact&quot

'Session("form&quot

= Request.Form("items&quot

'Session("form&quot

= Request.Form("driver&quot

'Session("form&quot

= Request.Form("courier&quot

'Session("form&quot

= Request.Form("status&quot

'Session("form&quot

= Request.Form("payment&quot

'Session("form&quot

= Request.Form("charges&quot

'Session("form&quot

= Request.Form("comments&quot

If (MM_editRedirectUrl <> "&quot

Then
Response.Redirect(MM_editRedirectUrl)
End If
End If

End If
%>

Thanks in advance guys.

[tt]"A Successful man is one who can build a firm foundation with the bricks that others throw at him"[/tt]
[noevil]

onpnt · Jul 17, 2002

you can't name all the session var's the same
session("form&quot

session("form2&quot

etc

I may not get it the 1st or 2nd time,
but how sweet that 15th time can be.
admin@onpntwebdesigns.com

TonyU · Jul 17, 2002

[tt]
so, I should name them like:

'Session("requested_date&quot

= Request.Form("requested_date&quot

'Session("pickup_delivery_date&quot

= Request.Form("pickup_delivery_date&quot

'Session("task&quot

= Request.Form("task&quot

etc
etc

Then on my results page when I request the session I should only request one session?? or should I request all of them if I'm clear

[tt]"A Successful man is one who can build a firm foundation with the bricks that others throw at him"[/tt]
[noevil]

onpnt · Jul 17, 2002

yes name them like that

and when you request them you call them one at a time
so if
insert page
session("text1&quot

= Request.Form("text1&quot

view page
<td><%
Response.Write session("text1&quot

%></td>

I may not get it the 1st or 2nd time,
but how sweet that 15th time can be.
admin@onpntwebdesigns.com

TonyU · Jul 17, 2002

[tt]Working on it now. I'll let you know. Thanks

[tt]"A Successful man is one who can build a firm foundation with the bricks that others throw at him"[/tt]
[noevil]

TonyU · Jul 17, 2002

[tt]I tested it no values came across. am I assigning the session(s) on the wrong spot on my page? I thought I woudl set them before the re-direct...

[tt]"A Successful man is one who can build a firm foundation with the bricks that others throw at him"[/tt]
[noevil]

onpnt · Jul 17, 2002

It looks like you have a GET mehtod in your form tag sense I see some Request.QueryString's up there.
in that case
Session("text1&quot

= Request.QueryString("text1&quot

Also I would do this in the beginning of the page

If you save all of your form values like this then you can change the remaining code around to use the var's and that would take care of the chance you are trying to change or give values to the save instance more then once.

Session("text1&quot

= Request.QueryString("text1&quot

dim field1
field1 = Session("text1&quot

this is a way to clean your code up that I like to use.
Not sure about the whole MM_ situation though.
(dreamweaver)

maybe there is someone out there that knows more about dreamweaver, I do everything in interdev and notepad so I'm at a loss there.
hope that helps [bomb]

I may not get it the 1st or 2nd time,
but how sweet that 15th time can be.
admin@onpntwebdesigns.com

snowboardr · Jul 17, 2002

Hey onpnt what about using array in the session?

Session("FormItem(0)&quot

= Request.QueryString("text1&quot

Just a thought..
Not sure if that works or not.

onpnt · Jul 17, 2002

I thought of that also and it's a awesome way of passing form values [hence the star] but I wanted to try and make this as straight forward as possible if it being the first use of session var etc..

also don't know how it will go with the MM issue and after the week I have been having on trying to help out I didn't wnat another strike against me [lol]

I may not get it the 1st or 2nd time,
but how sweet that 15th time can be.
admin@onpntwebdesigns.com

snowboardr · Jul 17, 2002

Well its only right you get a star too!

Oh, and how can you get a strike against you?

Thanks for the star!

onpnt · Jul 17, 2002

strike out on helping someone

if I give bad info I take that as a strike against myself. just a personal thing. hate to steer people the wrong way. besides they're here for help not have things made worse [bomb]

I may not get it the 1st or 2nd time,
but how sweet that 15th time can be.
admin@onpntwebdesigns.com

TonyU · Jul 17, 2002

[tt]Ok I'm back, I changed all my sessions as you suggested but I'm stil not getting anything to display when on my results page I use the session

can you guys verify that my sessions are being declared in the right spot in my code??

[tt]"A Successful man is one who can build a firm foundation with the bricks that others throw at him"[/tt]
[noevil]

schase · Jul 17, 2002

Trying to place a declare session or many similiar type of items is difficult with Dreamweaver. I often find the need to go "out of the box" with Dreamweaver - it's typically faster, easier (both to write and to see) an insert code and your session variables by hand.

"Damn the torpedoes, full speed ahead!"

-Adm. James Farragut

Stuart

schase · Jul 17, 2002

Unless I severely messed up this should work.

Take your first page with the form - remove the MM insert record behavior - change the form's tag to:

<form name="form1" Method="post" action="adddelivery.asp">

Now, create a new blank page - highlight whatever code MM puts in (you need to be on the code page for this)

and replace it with this. - and please don't just cut and paste, cut, paste and look at it - see why it's doing what. It's not terribly difficult and will help you in the future.

<%@LANGUAGE="VBSCRIPT"%>


<% 'Declaring Sessions
Session("svRequestDate&quot

= Request.Form("requested_date&quot

Session("svPickupDate&quot

= Request.Form("pickup_delivery_date&quot

Session("svTask&quot

= Request.Form("task&quot

Session("svAR&quot

= Request.Form("ar&quot

Session("svJobNumber&quot

= Request.Form("jobnumber&quot

Session("svClient&quot

= Request.Form("client&quot

Session("svProject&quot

= Request.Form("project&quot

Session("svAddress&quot

= Request.Form("address&quot

Session("svCity&quot

= Request.Form("city&quot

Session("svState&quot

= Request.Form("state&quot

Session("svZip&quot

= Request.Form("zip&quot

Session("svContact&quot

= Request.Form("contact&quot

Session("svItems&quot

= Request.Form("items&quot

Session("svDriver&quot

= Request.Form("driver&quot

Session("svCourier&quot

= Request.Form("courier&quot

Session("svStatus&quot

= Request.Form("status&quot

Session("svPayment&quot

= Request.Form("payment&quot

Session("svCharges&quot

= Request.Form("charges&quot

Session("svComments&quot

= Request.Form("comments&quot

%>
<%
Dim RS
set rs = Server.CreateObject("ADODB.Recordset&quot

rs.ActiveConnection = MM_Delivery_STRING
rs.Source = "SELECT Top 1 * FROM Delivery"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 3
rs.Open()
%>
<%
rs.addnew
rs("Requested_Date&quot

= Session("svRequestDate&quot

rs("Pickup_Delivery_Date&quot

= Session("svPickupDate&quot

rs("Task&quot

= Session("svTask&quot

rs("AR&quot

= Session("svAR&quot

rs("Client&quot

= Session("svClient&quot

rs("Project&quot

= Session("svProject&quot

rs("Address&quot

= Session("svAddress&quot

rs("City&quot

= Session("svCity&quot

rs("State&quot

= Session("svState&quot

rs("Zip&quot

= Session("svZip&quot

rs("Contact&quot

= Session("svContact&quot

rs("Items&quot

= Session("svItems&quot

rs("Driver&quot

= Session("svDriver&quot

rs("Courier&quot

= Session("svCourier&quot

rs("Status&quot

= Session("svStatus&quot

rs("Payment&quot

= Session("svPayment&quot

rs("Charges&quot

= Session("svCharges&quot

rs("Comments&quot

= Session("svComments&quot

rs.update
response.redirect "results.asp"
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
</body>
</html>
"Damn the torpedoes, full speed ahead!"

-Adm. James Farragut

Stuart

schase · Jul 17, 2002

forgot - save the new page as adddelivery.asp "Damn the torpedoes, full speed ahead!"

-Adm. James Farragut

Stuart

TonyU · Jul 17, 2002

Thank you very much schase, I will try it as soon as I get to work.

[tt]"A Successful man is one who can build a firm foundation with the bricks that others throw at him"[/tt]
[noevil]

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

I'm comfused with creating Session("Variables") - please help 2

TonyU

Technical User

onpnt

Programmer

TonyU

Technical User

onpnt

Programmer

TonyU

Technical User

TonyU

Technical User

onpnt

Programmer

snowboardr

Programmer

onpnt

Programmer

snowboardr

Programmer

onpnt

Programmer

TonyU

Technical User

schase

Technical User

schase

Technical User

schase

Technical User

TonyU

Technical User

Similar threads

Part and Inventory Search

Sponsor

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

I'm comfused with creating Session(&quot;Variables&quot;) - please help 2

Technical User

Programmer

Technical User

Programmer

Technical User

Technical User

Programmer

Programmer

Programmer

Programmer

Programmer

Technical User

Technical User

Technical User

Technical User

Technical User

Similar threads

Log in

Part and Inventory Search

Sponsor

I'm comfused with creating Session("Variables") - please help 2