Hi,

I have an update page to change data concerning photos.
Each photographer has to log in to be able to update his gallery, so I have a session("username" available to be sure one can only change his own data.
I have three fields to update : 2 textfields which give no problem, and 1 dropdown menu which has to dynamically give only those galleries made by the logged in user.
I created a recordset to populate this menu, which works fine in test :

SELECT Galleries.ID, Galleries.Gallery
FROM Galleries INNER JOIN Users ON Galleries.Author = Users.ID
WHERE Users.Username = 'MMColParam'
ORDER BY Gallery

with
MMColParam % Session("username"

The JOIN is necessary because the user logs in with his name and in the galleries table I have a field with the author/user ID.

The recordset gives exactly what I want in the test, but when I use it to populate the menu it takes always the default %, which gives null as a result.

In the menu's dynamic options I use this recordset, with values ID, labels Gallery and initial value equal to <%= (Recordset1.Fields.Item("Cat2".Value) %>, which is the actual value to eventually be updated.

What's wrong ? Something with the JOIN ? I've tried everything, but can't get it work.

Any help appreciated !

Thanks,

Danny

Why are you setting the initial value of the drop down?
And what are you setting it to?

I dont think there's anything wrong with your JOIN at all.

Sharing knowledge saves valuable time!

Simon

Simon,

The inital value is the actual value in the database.
I created another recordset to populate the list/menu, but this doesn't work, however the recordset gives the correct values.
I send you the whole page code...

Thanks,

Wim

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/conn_photodat_sql.asp" -->
<%
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")
If (Request.QueryString <> "" Then
MM_editAction = MM_editAction & "?" & Request.QueryString
End If

' boolean to abort record edit
MM_abortEdit = false

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

If (CStr(Request("MM_update") = "form1" And CStr(Request("MM_recordId") <> "" Then

MM_editConnection = MM_conn_photodat_sql_STRING
MM_editTable = "dbo.Images"
MM_editColumn = "ID"
MM_recordId = "" + Request.Form("MM_recordId" + ""
MM_editRedirectUrl = "gallery_update.asp"
MM_fieldsStr = "txt_title|value|select_gallery|value|txt_keywords|value"
MM_columnsStr = "Title|',none,''|Gallery|none,none,NULL|Keywords|',none,''"

' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|"
MM_columns = Split(MM_columnsStr, "|"

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

' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And Request.QueryString <> "" Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "" Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If

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

If (CStr(Request("MM_update") <> "" And CStr(Request("MM_recordId") <> "" Then

' create the sql update statement
MM_editQuery = "update " & MM_editTable & " set "
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_formVal = MM_fields(MM_i+1)
MM_typeArray = Split(MM_columns(MM_i+1),","
MM_delim = MM_typeArray(0)
If (MM_delim = "none" Then MM_delim = ""
MM_altVal = MM_typeArray(1)
If (MM_altVal = "none" Then MM_altVal = ""
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = "none" Then MM_emptyVal = ""
If (MM_formVal = "" Then
MM_formVal = MM_emptyVal
Else
If (MM_altVal <> "" Then
MM_formVal = MM_altVal
ElseIf (MM_delim = "'" Then ' escape quotes
MM_formVal = "'" & Replace(MM_formVal,"'","''" & "'"
Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i <> LBound(MM_fields)) Then
MM_editQuery = MM_editQuery & ","
End If
MM_editQuery = MM_editQuery & MM_columns(MM_i) & " = " & MM_formVal
Next
MM_editQuery = MM_editQuery & " where " & MM_editColumn & " = " & MM_recordId

If (Not MM_abortEdit) Then
' execute the update
Set MM_editCmd = Server.CreateObject("ADODB.Command"
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

If (MM_editRedirectUrl <> "" Then
Response.Redirect(MM_editRedirectUrl)
End If
End If

End If
%>
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="gallery_update_login.asp"
MM_grantAccess=false
If Session("MM_Username" <> "" Then
If (true Or CStr(Session("MM_UserAuthorization")="" Or _
(InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization")>=1) Then
MM_grantAccess = true
End If
End If
If Not MM_grantAccess Then
MM_qsChar = "?"
If (InStr(1,MM_authFailedURL,"?" >= 1) Then MM_qsChar = "&"
MM_referrer = Request.ServerVariables("URL"
if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
Response.Redirect(MM_authFailedURL)
End If
%>
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "%"
If (Request.Querystring("select_author" <> "" Then
Recordset1__MMColParam = Request.Querystring("select_author"
End If
%>
<%
Dim Recordset1__MMColParam4
Recordset1__MMColParam4 = "%"
If (Request.Querystring("select_gallery" <> "" Then
Recordset1__MMColParam4 = Request.Querystring("select_gallery"
End If
%>
<%
Dim Recordset1__MMColParam5
Recordset1__MMColParam5 = "%"
If (Request.Querystring("txt_keyword" <> "" Then
Recordset1__MMColParam5 = Request.Querystring("txt_keyword"
End If
%>
<%
Dim Recordset1__MMColParam2
Recordset1__MMColParam2 = "%"
If (Session("MM_Username" <> "" Then
Recordset1__MMColParam2 = Session("MM_Username"
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset"
Recordset1.ActiveConnection = MM_conn_photodat_sql_STRING
Recordset1.Source = "SELECT Images.Title, Images.Filename, Users.Author, Images.ID, Galleries.Gallery AS Cat, Images.Gallery AS Cat2, Images.Keywords FROM (Images INNER JOIN Users ON Images.Author = Users.ID) INNER JOIN Galleries ON Images.Gallery = Galleries.ID WHERE (Users.Username = '" + Replace(Recordset1__MMColParam2, "'", "''" + "') AND (Images.Author LIKE '%" + Replace(Recordset1__MMColParam, "'", "''" + "%' AND Images.Gallery LIKE '%" + Replace(Recordset1__MMColParam4, "'", "''" + "%') AND (Keywords LIKE '%" + Replace(Recordset1__MMColParam5, "'", "''" + "%' OR Title LIKE '%" + Replace(Recordset1__MMColParam5, "'", "''" + "%') ORDER BY Galleries.Gallery, Images.Date_added DESC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
Dim Recordset2__MMColParam
Recordset2__MMColParam = "%"
If (Session("username" <> "" Then
Recordset2__MMColParam = Session("username"
End If
%>
<%
Dim Recordset2
Dim Recordset2_numRows

Set Recordset2 = Server.CreateObject("ADODB.Recordset"
Recordset2.ActiveConnection = MM_conn_photodat_sql_STRING
Recordset2.Source = "SELECT * FROM Galleries INNER JOIN Users ON Galleries.Author = Users.ID WHERE Users.Username = '" + Replace(Recordset2__MMColParam, "'", "''" + "' ORDER BY Gallery"
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()

Recordset2_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 5
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim Recordset1_total
Dim Recordset1_first
Dim Recordset1_last

' set the record count
Recordset1_total = Recordset1.RecordCount

' set the number of rows displayed on this page
If (Recordset1_numRows < 0) Then
Recordset1_numRows = Recordset1_total
Elseif (Recordset1_numRows = 0) Then
Recordset1_numRows = 1
End If

' set the first and last displayed record
Recordset1_first = 1
Recordset1_last = Recordset1_first + Recordset1_numRows - 1

' if we have the correct record count, check the other stats
If (Recordset1_total <> -1) Then
If (Recordset1_first > Recordset1_total) Then
Recordset1_first = Recordset1_total
End If
If (Recordset1_last > Recordset1_total) Then
Recordset1_last = Recordset1_total
End If
If (Recordset1_numRows > Recordset1_total) Then
Recordset1_numRows = Recordset1_total
End If
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (Recordset1_total = -1) Then

' count the total records by iterating through the recordset
Recordset1_total=0
While (Not Recordset1.EOF)
Recordset1_total = Recordset1_total + 1
Recordset1.MoveNext
Wend

' reset the cursor to the beginning
If (Recordset1.CursorType > 0) Then
Recordset1.MoveFirst
Else
Recordset1.Requery
End If

' set the number of rows displayed on this page
If (Recordset1_numRows < 0 Or Recordset1_numRows > Recordset1_total) Then
Recordset1_numRows = Recordset1_total
End If

' set the first and last displayed record
Recordset1_first = 1
Recordset1_last = Recordset1_first + Recordset1_numRows - 1

If (Recordset1_first > Recordset1_total) Then
Recordset1_first = Recordset1_total
End If
If (Recordset1_last > Recordset1_total) Then
Recordset1_last = Recordset1_total
End If

End If
%>
<%
Dim MM_paramName
%>
<%
' *** Move To Record and Go To Record: declare variables

Dim MM_rs
Dim MM_rsCount
Dim MM_size
Dim MM_uniqueCol
Dim MM_offset
Dim MM_atTotal
Dim MM_paramIsDefined

Dim MM_param
Dim MM_index

Set MM_rs = Recordset1
MM_rsCount = Recordset1_total
MM_size = Recordset1_numRows
MM_uniqueCol = ""
MM_paramName = ""
MM_offset = 0
MM_atTotal = false
MM_paramIsDefined = false
If (MM_paramName <> "" Then
MM_paramIsDefined = (Request.QueryString(MM_paramName) <> ""
End If
%>
<%
' *** Move To Record: handle 'index' or 'offset' parameter

if (Not MM_paramIsDefined And MM_rsCount <> 0) then

' use index parameter if defined, otherwise use offset parameter
MM_param = Request.QueryString("index"
If (MM_param = "" Then
MM_param = Request.QueryString("offset"
End If
If (MM_param <> "" Then
MM_offset = Int(MM_param)
End If

' if we have a record count, check if we are past the end of the recordset
If (MM_rsCount <> -1) Then
If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last
If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region
MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
Else
MM_offset = MM_rsCount - MM_size
End If
End If
End If

' move the cursor to the selected record
MM_index = 0
While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1))
MM_rs.MoveNext
MM_index = MM_index + 1
Wend
If (MM_rs.EOF) Then
MM_offset = MM_index ' set MM_offset to the last possible record
End If

End If
%>
<%
' *** Move To Record: if we dont know the record count, check the display range

If (MM_rsCount = -1) Then

' walk to the end of the display range for this page
MM_index = MM_offset
While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + MM_size))
MM_rs.MoveNext
MM_index = MM_index + 1
Wend

' if we walked off the end of the recordset, set MM_rsCount and MM_size
If (MM_rs.EOF) Then
MM_rsCount = MM_index
If (MM_size < 0 Or MM_size > MM_rsCount) Then
MM_size = MM_rsCount
End If
End If

' if we walked off the end, set the offset based on page size
If (MM_rs.EOF And Not MM_paramIsDefined) Then
If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then
If ((MM_rsCount Mod MM_size) > 0) Then
MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
Else
MM_offset = MM_rsCount - MM_size
End If
End If
End If

' reset the cursor to the beginning
If (MM_rs.CursorType > 0) Then
MM_rs.MoveFirst
Else
MM_rs.Requery
End If

' move the cursor to the selected record
MM_index = 0
While (Not MM_rs.EOF And MM_index < MM_offset)
MM_rs.MoveNext
MM_index = MM_index + 1
Wend
End If
%>
<%
' *** Move To Record: update recordset stats

' set the first and last displayed record
Recordset1_first = MM_offset + 1
Recordset1_last = MM_offset + MM_size

If (MM_rsCount <> -1) Then
If (Recordset1_first > MM_rsCount) Then
Recordset1_first = MM_rsCount
End If
If (Recordset1_last > MM_rsCount) Then
Recordset1_last = MM_rsCount
End If
End If

' set the boolean used by hide region to check if we are on the last record
MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth

Dim MM_removeList
Dim MM_item
Dim MM_nextItem

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "" Then
MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If

MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
End If
Next

' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "" Then
MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "" Then
MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "" Then
MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
If (firstItem <> "" Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%>
<%
' *** Move To Record: set the strings for the first, last, next, and previous links

Dim MM_keepMove
Dim MM_moveParam
Dim MM_moveFirst
Dim MM_moveLast
Dim MM_moveNext
Dim MM_movePrev

Dim MM_urlStr
Dim MM_paramList
Dim MM_paramIndex
Dim MM_nextParam

MM_keepMove = MM_keepBoth
MM_moveParam = "index"

' if the page has a repeated region, remove 'offset' from the maintained parameters
If (MM_size > 1) Then
MM_moveParam = "offset"
If (MM_keepMove <> "" Then
MM_paramList = Split(MM_keepMove, "&"
MM_keepMove = ""
For MM_paramIndex = 0 To UBound(MM_paramList)
MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"=" - 1)
If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then
MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex)
End If
Next
If (MM_keepMove <> "" Then
MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
End If
End If
End If

' set the strings for the move to links
If (MM_keepMove <> "" Then
MM_keepMove = MM_keepMove & "&"
End If

MM_urlStr = Request.ServerVariables("URL" & "?" & MM_keepMove & MM_moveParam & "="

MM_moveFirst = MM_urlStr & "0"
MM_moveLast = MM_urlStr & "-1"
MM_moveNext = MM_urlStr & CStr(MM_offset + MM_size)
If (MM_offset - MM_size < 0) Then
MM_movePrev = MM_urlStr & "0"
Else
MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size)
End If
%>
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
function Thumbnail(tmb_suff,tmb_filename)
Dim tmb_NewFilename, tmb_Path, tmb_PosPath, tmb_PosExt
if not isnull(tmb_filename) then
tmb_PosPath = InStrRev(tmb_filename,"/"
tmb_Path = ""
if tmb_PosPath > 0 then
tmb_Path = mid(tmb_filename,1,tmb_PosPath)
end if
tmb_PosExt = InStrRev(tmb_filename,"."
if tmb_PosExt > 0 then
tmb_NewFilename = tmb_Path & mid(tmb_filename,tmb_PosPath+1,tmb_PosExt-(tmb_PosPath+1)) & tmb_suff & ".jpg"
else
tmb_NewFilename = tmb_Path & mid(tmb_filename,tmb_PosPath+1,len(tmb_filename)-tmb_PosPath) & tmb_suff & ".jpg"
end if
end if
Thumbnail = tmb_NewFilename
end function
</SCRIPT>

<html><!-- InstanceBegin template="/Templates/mainTemplate.dwt.asp" codeOutsideHTMLIsLocked="false" -->
<head>
<link href="css/layout.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>
<body>
<script language="JavaScript1.2" vqm_id="opencube/mainMenu.js">

vqm__notice='Visual QuickMenu Pro, (c) 2004 OpenCube Inc., All Rights Reserved, Visit - www.opencube.com';

vqm__codebase='opencube/';
vqm__database='opencube/';

</script>

<script language="JavaScript1.2" src="opencube/mainMenu.js"></script>

<script language="JavaScript1.2" src="opencube/tdqm_loader.js"></script>
<table width="100%" height="100%" border="0" align="center" class="cellfill">
<tr>
<td align="center" valign="top"><table width="754" height="54" border="0" background="ASP/images/back_banner.jpg">
<tr>
<td>
<div align="center"><font color="#02394F" size="5" face="Verdana, Arial, Helvetica, sans-serif"><strong>Images-belles</strong></font></div></td>
</tr>
</table>
<br>
<table width="760" border="0" bordercolor="#FFFFFF">
<tr>
<td><div align="center"><iframe id="dtickerifrm" name="dtickerifrm" width="758" height="22" src="dticker_dt.html" SCROLLING="no" FRAMEBORDER="0" border=0></iframe>
<script id="vqp_generate_mainitems" language="javascript1.2">generate_mainitems() </script>
</div></td>
</tr>
</table>
<table width="760" border="0" align="center" bgcolor="#000000" class="unnamed1">
<tr bgcolor="#CCCCCC">
<td bgcolor="#CCCCCC"><table width="100%" border="3" cellpadding="5" bgcolor="#CCCCCC">
<tr>
<td align="center" valign="middle" bgcolor="#666666"><!-- InstanceBeginEditable name="EditRegion_MainFrame" -->
<table width="100%" border="0">
<tr>
<td align="center" valign="top" bgcolor="8A92A7">
<table width="100%" border="0" align="center">
<tr align="center" valign="middle">
<td valign="middle"><table width="100%" border="1" align="center" bordercolor="#000066">
<tr>
<td width="10%" align="center" bgcolor="#CCCCCC">
<% If MM_offset <> 0 Then %>
<a href="<%=MM_moveFirst%>" onMouseOver="MM_displayStatusMsg('Move to first records');return document.MM_returnValue"><img src="ASP/images/First.gif" width="18" height="13" border=0></a>
<% End If ' end MM_offset <> 0 %>
 </td>
<td width="10%" align="center" bgcolor="#CCCCCC">
<% If MM_offset <> 0 Then %>
<a href="<%=MM_movePrev%>"><img src="ASP/images/Previous.gif" width="14" height="13" border=0 onMouseOver="MM_displayStatusMsg('Move to previous records');return document.MM_returnValue"></a>
<% End If ' end MM_offset <> 0 %>
 </td>
<td width="40%" align="center" bgcolor="#175E8C"><font color="#FFFFFF" size="2">
Records : <%=(Recordset1_first)%> - <%=(Recordset1_last)%> of <%= FormatNumber((Recordset1_total), 0, -2, -2, -1) %></font> </td>
<td width="10%" align="center" bgcolor="#CCCCCC">
<% If Not MM_atTotal Then %>
<a href="<%=MM_moveNext%>"><img src="ASP/images/Next.gif" width="14" height="13" border=0 onMouseOver="MM_displayStatusMsg('Move to next records');return document.MM_returnValue"></a>
<% End If ' end Not MM_atTotal %>
 </td>
<td width="10%" align="center" bgcolor="#CCCCCC">
<% If Not MM_atTotal Then %>
<a href="<%=MM_moveLast%>"><img src="ASP/images/Last.gif" width="18" height="13" border=0 onMouseOver="MM_displayStatusMsg('Move to last records');return document.MM_returnValue"></a>
<% End If ' end Not MM_atTotal %>
 </td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor="#000000">
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>

<form name="form1" method="POST" action="<%=MM_editAction%>">
<table width="100%" height="159" border="0" align="center" cellpadding="5" bgcolor="#000000" class="borders2">
<tr valign="top">
<td width="170" rowspan="3" bgcolor="D8EEF6">
<p align="center"> <font face="Arial, Helvetica, sans-serif"><img src="<%= Thumbnail("_thumb",(Recordset1.Fields.Item("Filename".Value)) %>" name="thumb" border="0" id="thumb"><br>
<font color="#333333" size="2">Ref.: </font></font><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif"><font color="#000099"><%=(Recordset1.Fields.Item("ID".Value)%></font></font> </p></td>
<td height="48" bgcolor="#CAD7DF"> <p><font color="#333333" size="2" face="Arial, Helvetica, sans-serif">Caption:</font></p></td>
<td bgcolor="#CAD7DF"><p> <font size="2" face="Arial, Helvetica, sans-serif">
<input name="txt_title" type="text" class="textfield" id="txt_title" value="<%=(Recordset1.Fields.Item("Title".Value)%>">
</font></p></td>
<td rowspan="3" bgcolor="8A92A7"> <p align="center">
<font face="Arial, Helvetica, sans-serif">
<input name="Submit" type="submit" class="buttonstyle1" value="Update">
</font></p></td>
</tr>
<tr valign="top">
<td bgcolor="#CAD7DF"><font color="#333333" size="2" face="Arial, Helvetica, sans-serif">Gallery:</font></td>
<td bgcolor="#CAD7DF"><font color="#333333" size="2" face="Arial, Helvetica, sans-serif">
<select name="select_gallery" class="textfield" id="select_gallery">
<%
While (NOT Recordset2.EOF)
%>
<option value="<%=(Recordset2.Fields.Item("ID".Value)%>" <%If (Not isNull((Recordset1.Fields.Item("Cat2".Value))) Then If (CStr(Recordset2.Fields.Item("ID".Value) = CStr((Recordset1.Fields.Item("Cat2".Value))) Then Response.Write("SELECTED" : Response.Write(""%> ><%=(Recordset2.Fields.Item("Gallery".Value)%></option>
<%
Recordset2.MoveNext()
Wend
If (Recordset2.CursorType > 0) Then
Recordset2.MoveFirst
Else
Recordset2.Requery
End If
%>
</select>
</font></td>
</tr>
<tr valign="top">
<td bgcolor="#CAD7DF"><font color="#333333" size="2" face="Arial, Helvetica, sans-serif">Keywords:</font></td>
<td bgcolor="#CAD7DF"><font size="2" face="Arial, Helvetica, sans-serif">
<input name="txt_keywords" type="text" class="textfield" id="txt_keywords" value="<%=(Recordset1.Fields.Item("Keywords".Value)%>">
</font></td>
</tr>
</table>
<input type="hidden" name="MM_update" value="form1">
<input type="hidden" name="MM_recordId" value="<%= Recordset1.Fields.Item("ID".Value %>">
</form>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
</td>
</tr>
<tr>
<td valign="top"><div align="center">
<table width="100%" border="1" align="center" bordercolor="#000066">
<tr>
<td width="10%" align="center" bgcolor="#CCCCCC">
<% If MM_offset <> 0 Then %>
<a href="<%=MM_moveFirst%>"><img src="ASP/images/First.gif" width="18" height="13" border=0 onMouseOver="MM_displayStatusMsg('Move to first records');return document.MM_returnValue"></a>
<% End If ' end MM_offset <> 0 %>
 </td>
<td width="10%" align="center" bgcolor="#CCCCCC">
<% If MM_offset <> 0 Then %>
<a href="<%=MM_movePrev%>"><img src="ASP/images/Previous.gif" width="14" height="13" border=0 onMouseOver="MM_displayStatusMsg('Move to previous records');return document.MM_returnValue"></a>
<% End If ' end MM_offset <> 0 %>
 </td>

<td width="40%" align="center" bgcolor="#175E8C"><font color="#FFFFFF" size="2">
Records : <%=(Recordset1_first)%> - <%=(Recordset1_last)%> of <%= FormatNumber((Recordset1_total), 0, -2, -2, -1) %></font> </td>
<td width="10%" align="center" bgcolor="#CCCCCC">
<% If Not MM_atTotal Then %>
<a href="<%=MM_moveNext%>"><img src="ASP/images/Next.gif" width="14" height="13" border=0 onMouseOver="MM_displayStatusMsg('Move to next records');return document.MM_returnValue"></a>
<% End If ' end Not MM_atTotal %>
 </td>
<td width="10%" align="center" bgcolor="#CCCCCC">
<% If Not MM_atTotal Then %>
<a href="<%=MM_moveLast%>"><img src="ASP/images/Last.gif" alt="" width="18" height="13" border=0 onMouseOver="MM_displayStatusMsg('Move to last records');return document.MM_returnValue"></a>
<% End If ' end Not MM_atTotal %>
 </td>
</tr>
</table>
</div>
</td>
</tr>
</table>

</td>
</tr>
</table>
<!-- InstanceEndEditable --></td>
</tr>
</table></td>
</tr>
</table>
<table width="760" border="0" cellpadding="5">
<tr>
<td><table width="100%" border="0">
<tr>
<td><div align="center"> <font color="#FFCC00" size="2"><font size="1">©
2004 Images-belles - All rights reserved</font> </font><font color="#CCCCCC" size="1">|
</font><font color="#FFCC00" size="1"><a href="mailto: ">Webmaster</a></font><font color="#FFCC00" size="2">
<font color="#CCCCCC" size="1"><font color="#FFCC00" size="2">
<font color="#CCCCCC" size="1"> | <a href="www.images-belles.com/sitemap.asp">Sitemap</a>
</font><font color="#FFCC00" size="2"> <font color="#CCCCCC" size="1">
| </font></font> </font></font></font><font size="2"><font size="1"><a href="mailto: ">Contact</a></font></font><font color="#FFCC00" size="2"><font color="#CCCCCC" size="1"><font color="#FFCC00" size="2">
<font color="#CCCCCC" size="1"><font color="#FFCC00" size="2"><font color="#FFCC00" size="2"><font color="#CCCCCC" size="1">|</font></font></font></font>
<!-- Begin Nedstat Basic code -->
<!-- Title: Images-belles -->
<!-- URL: digiwim.webhop.net/images-belles/start.asp -->
<script language="JavaScript" type="text/javascript" src="m1.nedstatbasic.net/basic.js">
</script>
<script language="JavaScript" type="text/javascript" >
<!--
nedstatbasic("AC2KUg0IbFkHmG+7qWSL9yXij4NA", 1);
// -->
</script>
</font></font></font>
<noscript>
<font color="#FFCC00" size="2"><a target="_blank" href="www.nedstatbasic.net/stats?AC2KUg0IbFkHmG+7qWSL9yXij4NA"><img
src="m1.nedstatbasic.net/n?id=AC2KUg0IbFkHmG+7qWSL9yXij4NA" width="18" height="18"
border="0" align="absmiddle"></a><br>
</font>
</noscript>
<!-- End Nedstat Basic code -->
<font color="#FFCC00" size="2"><font color="#CCCCCC" size="1"><font color="#FFCC00" size="2"><font color="#CCCCCC" size="1">
</font></font></font></font></div>
</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</body>
<!-- InstanceEnd --></html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>