<%@ language = "VBScript" %>
<%
'----------------------------------------------------------------------------------------
'- ASP dbList - Version 8.1 - 30 July 2005
'- Copyright © 2005 - Livio Siri (http://www.livio.net) - All Rights Reserved.
'----------------------------------------------------------------------------------------
option explicit
response.buffer = true
Dim conn, Rs, Total, sSQL, arrRS, sDSN, field, i
Dim n_record, m_sTable, PrimaryKey, defaultsort
Dim m_StandardFields()
Dim m_StandardFieldsValue()
Redim m_StandardFields(0)
Redim m_StandardFieldsValue(0)
m_sTable = Request.QueryString("strdbtable")
n_record = Request.QueryString("member")
sDSN = Request.querystring("dsn")
PrimaryKey = Request.QueryString("primarykey")
set conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.RecordSet")
conn.open sDSN
set rs.ActiveConnection = conn
rs.CursorType = adOpenStatic
sSQL = "SELECT * FROM " & m_sTable & " WHERE " & PrimaryKey & " LIKE ('%" & request.querystring("member") & "%')"
'--- Open the RecordSet with a static cursor. This cursor provides bi-directional navigation
Rs.Open sSQL, sDSN, adOpenStatic, adLockReadOnly, adCmdText
i = 1
'--- loop through the fields in the recordset
for each field in RS.Fields
Redim Preserve m_StandardFields(UBound(m_StandardFields)+1)
Redim Preserve m_StandardFieldsValue(UBound(m_StandardFieldsValue)+1)
m_StandardFields(i) = field.name
m_StandardFieldsValue(i) = field.value
i = i + 1
next
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
Stampa Record
<%
buildHTML_Form
Response.Write ""
''--------------------------------------------------------------------------
Private Function buildHTML_Form()
Dim sValue
Response.Write "" & vbCrLf
Response.Write "| " & vbCrLf
Response.Write "Tabella: " & vbCrLf
Response.Write "" & m_sTable & "" & vbCrLf
%>
<%
Response.Write " Chiudi la Finestra" & vbCrLf
Response.Write " |
" & VbCrlf
Response.Write "" & vbCrLf
'--- insert all fields
for i = 1 to UBound(m_StandardFields)
if m_StandardFields(i) = PrimaryKey Then
Response.Write InsertField (m_StandardFields(i), m_StandardFieldsValue(i), True)
Else
Response.Write InsertField (m_StandardFields(i), m_StandardFieldsValue(i), False)
End if
next
Response.Write "
" & vbCrLf
End Function
''--------------------------------------------------------------------------
Private Function InsertField ( field, fieldvalue, bPrimaryKey )
Dim sReturn, sValue
Dim sStyle, sStyleForm
sStyle = "prn_header"
sStyleForm = "prn_form_value"
if bPrimaryKey then
sStyle = sStyle & "_pk"
sStyleForm = sStyleForm & "_pk"
end if
sReturn = sReturn & "| " & field & " | "
if ISNULL(fieldvalue) then
sValue = " "
else
sValue = fieldvalue
sValue = Server.HTMLEncode(sValue)
sValue = replace(sValue, CHR(13), "
")
end if
'--- display field value
sReturn = sReturn & sValue & " |
" & vbCrLf
InsertField = sReturn
End Function
%>