I have a page where i am generating the textbox and submit button dynamically through do while loop and i have generated the session with in the loop and when i posting the form to the same page the values in the textbox is not appearing and when i refresh the page again then the values are comming to the textbox as well as on the page
here is the code
<%
SQLStmt = "Select * from IssueDetails Where IssueID between " & 12 & " and " & 15
Set rst = Server.CreateObject("ADODB.Recordset")
rst.Open SQLStmt, dbCon
'session.Abandon()
' Dim objDictionary
' Set objDictionary = Server.CreateObject("Scripting.Dictionary")
Total=0
'Response.write("Total is " & Request("hdTotal"))
i=1
Do While not rst.Eof
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="31%" height="150" align="center">
<%
CheckFileExists = False
If Not(rst("ImgSource") = "") Then
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
filePath = Server.MapPath("../" & rst("ImgSource"))
If (objFSO.FileExists(filePath)) Then
CheckFileExists = True
Else
CheckFileExists = False
End If
Set objFSO = Nothing
End If
If (CheckFileExists = True) Then
%>
<img src="../<% Response.write rst("ImgSource") %>" width="100" >
<% Else %>
<IMG SRC="../IssueImages/ImageNotFound.gif" BORDER="0">
<% End If %>
</td>
<td width="44%">
<table width="100%" border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td height="40" align="center"><SPAN class=ItermTitle><b><% Response.write rst("IssueTitle") %></b></SPAN></td>
</tr>
<tr>
<td height="60" valign="top" class="shopDescription"><% Response.write rst("FeatureTopic") %></td>
</tr>
<tr>
<td height="40" valign="bottom" class="shopDescription">Unit Price : <span class="navtext"><b>$<% Response.write rst("price") %></b></span> </td>
</tr>
</table>
</td>
<td width="25%">
<form action="search.asp?menu=shopping" method="post">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="40" align="right" valign="top" class="text">
<%
If Not Session("Qty"&i) = "" Then
Response.write "Net Price : <span class='navtext'>$" & Session("Qty"&i) * rst("Price") & "</span>"
End If
Total=Total+ (Session("Qty"&i) * rst("Price"))
%>
</td>
</tr>
<tr>
<td height="60" align="center" valign="top" class="text"> & nbsp;
<div align="center">Qty
<input name="txtQty<%=i%>" type="text" id="txtQty" size="3" value="<%=Session("Qty"&i)%>">
</div>
</td>
</tr>
<tr>
<td height="50" valign="bottom" class="ItermTitle"><div align="center">
<div align="center">
<input type="hidden" name="hdTotal" value=" <%Response.write(Total)%> " >
<%
If Not Request("txtQty"&i) = "" Then
Session("Qty"&i)=Request("txtQty"&i)
End If
%>
<input type="submit" name="Submit" value="Add to Cart">
</div>
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<%
'objDictionary.Add Cstr(rst("IssueID")),session("Qty"&i) * rst("Price")
i=i+1
rst.MoveNext
Loop
rst.close
dbCon.close
set dbCon=Nothing
Response.write("Total is "& Total & "<br>")
' Dim arrItems, iCounter
' arrItems = objDictionary.Items
' keyItems=objDictionary.Keys
' Response.Write "[list]"
' For iCounter = 0 To objDictionary.Count - 1
' Response.Write "<li> item = " & arrItems(iCounter) & "key=" & keyItems(iCounter) & "</li>"
' Next
' Response.Write "</ul>"
'Set objDictionary = Nothing
dim i
For Each i in Session.Contents
Response.Write(i & " value " & session.contents(i)&"<br />")
Next
%>
D.kumar
ASP
