See
http://spiderwebwoman.com/thingumajig/tweaks.htm#passing
--
_____________________________________________
SBR @ ENJOY (-: [ Microsoft MVP - FrontPage ]
"Warning - Using the F1 Key will not break anything!" (-;
_____________________________________________
| Different error:
|
| Microsoft VBScript runtime error '800a000d'
|
| Type mismatch: 'fp_rs'
|
| /logon/Repair/results_page.asp, line 204
|
| --
| Dave Lagergren
| Manager - Data Applications
| Wireless Management, Inc
| Specializing in cellular wireless applications
|
|
| "Thomas A. Rowe" wrote:
|
| > Try
| >
| > <input type="hidden" name="AgentIn" value="<%=fp_rs("AgentIn")%>">
| >
| >
| > ==============================================
| > Thomas A. Rowe
| > Microsoft MVP - FrontPage
| >
| >
http://www.Ecom-Data.com
| > ==============================================
| >
| >
| > | > >I re-tried that but I get the following error:
| > >
| > > Microsoft VBScript runtime error '800a000d'
| > >
| > > Type mismatch: 'rs'
| > >
| > > /logon/_fpclass/fpdblib.inc, line 48
| > >
| > > line 48 is the second line of this function:
| > >
| > > Function FP_Field(rs, fldname)
| > >
| > > If Not IsEmpty(rs) And Not (rs Is Nothing) and Not IsNull(rs(fldname))
| > > Then
| > > Select Case rs(fldname).Type
| > > Case 128, 204, 205 ' adBinary, adVarBinary, adLongVarBinary
| > > FP_Field = "[#BINARY#]"
| > > Case 201, 203 ' adLongVarChar, adLongVarWChar
| > > if rs(fldname).DefinedSize > 255 then
| > > ' check for Access hyperlink fields (only absolute http
| > > links)
| > > fp_strVal = rs(fldname)
| > > fp_idxHash1 = InStr(LCase(fp_strVal),"#http://")
| > > if fp_idxHash1 > 0 then
| > > fp_idxHash2 = InStr(fp_idxHash1+1,fp_strVal,"#")
| > > if fp_idxHash2 > 0 then
| > > ' this is an Access hyperlink; extract the URL
| > > part
| > > fp_strVal = Mid(fp_strVal,fp_idxHash1+1)
| > > if Right(fp_strVal,1) = "#" then
| > > fp_strVal = Left(fp_strVal,Len(fp_strVal)-1)
| > > end if
| > > end if
| > > end if
| > > FP_Field = fp_strVal
| > > else
| > > FP_Field = rs(fldname)
| > > end if
| > > Case Else
| > > FP_Field = rs(fldname)
| > > End Select
| > > Else
| > > FP_Field = ""
| > > End If
| > >
| > > End Function
| > >
| > > I could try and hand code everything but that is a little above my current
| > > skill level.
| > >
| > >
| > >
| > > --
| > > Dave Lagergren
| > > Manager - Data Applications
| > > Wireless Management, Inc
| > > Specializing in cellular wireless applications
| > >
| > >
| > > "Thomas A. Rowe" wrote:
| > >
| > >> <input type="hidden" name="AgentIn" value="<%=FP_FieldVal(fp_rs,"AgentIn")%>">
| > >>
| > >> --
| > >> ==============================================
| > >> Thomas A. Rowe
| > >> Microsoft MVP - FrontPage
| > >>
| > >>
http://www.Ecom-Data.com
| > >> ==============================================
| > >>
| > >>
| > >> | > >> >I have a page that searches for records based on up to 4 entries. That works
| > >> > fine. I list the result(s) in a table with a clickable link on each key
| > >> > field. When you ckick on the link it takes you to another page where you can
| > >> > add additional information (service report). My problem is passing the
| > >> > variables from one page to another.
| > >> >
| > >> > DBW's bot puts them in the form <%=FP_FieldVal(fp_rs,"AgentIn")%>.
| > >> >
| > >> > I need to pass then as <input type="hidden" name="AgentIn" value="<???????">
| > >> > where the ?s are the value of AgentIn.
| > >> >
| > >> > Also I currently read in all columns but I only need a few displayed. I can
| > >> > edit the display (table) but it removes the Bot read?
| > >> >
| > >> >
| > >> >
| > >> > --
| > >> > Dave Lagergren
| > >> > Manager - Data Applications
| > >> > Wireless Management, Inc
| > >> > Specializing in cellular wireless applications
| > >>
| > >>
| > >>
| >
| >
| >