Hi;
I am a little stuck and need some guidance. I have two question! in my code I
would like to include a drop down that will filter my database or do query then
have it display. 2) Have the tickect number displays as hyperlink so I can have
the users update part on the datbase. I believe I have to change the code to a
string in order to display the ticket number as link right? because I have them
display as a variable. Here's code: By the please reply back at
[email protected]
<% @LANGUAGE = VBScript %>
<%Option Explicit
Response.Expires = 0
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adCmdText = &H0001
%>
<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Eta Call back Database</title>
</head>
<body>
<p align="center">Eta Call back Database</p>
<p align="center"> </p>
<p align="center"> </p>
<%
Dim objConn, objRS, strQ, objProp
Dim strconnection
Dim iPageSize
Dim iPageCount
Dim iPageCurrent
Dim strOrderBy
Dim strSQL
Dim objPagingConn
Dim objPagingRS
Dim iRecordsShown
Dim iFieldCount
Dim iRecordCount
Dim LoopRecordCount
Dim pageNum
Dim counter
Dim markShowPage
Dim I, J
iPageSize = 4
If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If
strSQL ="SELECT ticket_Number, Time_Stamp, Status, Entity, Account_Number,
Escalation_Type, Cae_Name, Supervisor_Name, Lan, First_Name, Last_Name,
Phone_Number, Job_Number, Tech_Number, Cust_Com, Wip_Com from Escalation_Forms
ORDER BY Ticket_Number DESC;"
Set objPagingConn = Server.CreateObject("ADODB.Connection")
strConnection = "Provider=sqloledb;Data Source=FLMIRSQL02;"
strConnection = strConnection & "User ID=Source_Forms_User;Password=password;"
objPagingConn.Open strConnection
Set objPagingRS = Server.CreateObject("ADODB.Recordset")
objPagingRS.PageSize = iPageSize
objPagingRS.CacheSize = iPageSize
objPagingRS.Open strSQL, objPagingConn, adOpenStatic, adLockReadOnly, adCmdText
iPageCount = objPagingRS.PageCount
iFieldCount = objPagingRS.Fields.Count
iRecordCount = objPagingRS.RecordCount
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1
If iPageCount = 0 Then
Response.Write "No records found!"
Else
objPagingRS.AbsolutePage = iPageCurrent
Dim arrDBData
ReDim arrDBData(iFieldCount, iRecordCount)
LoopRecordCount = 0
'arrDBData = objPagingRS.GetRows()
Do While LoopRecordCount < iPageSize And Not objPagingRS.EOF
For I = 0 To objPagingRS.Fields.Count - 1
arrDBData(I, LoopRecordCount) = objPagingRS.Fields(I)
Next
LoopRecordCount = LoopRecordCount + 1
objPagingRS.MoveNext
Loop
objPagingRS.Close
Set objPagingRS = Nothing
objPagingConn.Close
Set objPagingConn = Nothing
End If
iRecordCount = iRecordCount - 1
iFieldCount = iFieldCount - 1
LoopRecordCount = LoopRecordCount - 1
pageNum = Round(iRecordCount/iPageSize)
If pageNum < (iRecordCount/iPageSize) Then pageNum = pageNum + 1
Response.Write " <b>Page: "
For counter = 1 To pageNum
if counter=iPageCurrent then
Response.Write " <span class=activepage> "
Response.Write counter
Response.Write " </span>"
markShowPage=1
else
Response.Write " <a onclick=exitoff()
href=Eta_database.asp?page="
Response.Write counter
Response.Write " class=listingLink>"
Response.Write counter
Response.Write "</a>"
end if
Next
Response.Write "</b>"
Response.Write " "
Response.Write "<b>"
Response.Write "<a href=Eta_database.asp?page="
If iPageCurrent = 1 Then
Response.Write pageNum
else
Response.Write iPageCurrent-1
end if
Response.Write " class=listingLink>Back</a> "
Response.Write "<a href=Eta_database.asp?page="
If iPageCurrent = pageNum Then
Response.Write "1"
else
Response.Write iPageCurrent+1
end if
Response.Write " class=listingLink>Next</a>"
Response.Write "</b>"
%>
<table border="1">
<tr>
<th bgcolor="#99CCFF">Ticket
Number</th>
<th width="37" bgcolor="#99CCFF">Date &
Time</th>
<th bgcolor="#99CCFF">Status</th>
<th bgcolor="#99CCFF">System</th>
<th bgcolor="#99CCFF">Account
Number </th>
<th bgcolor="#99CCFF">Escalation
Type</th>
<th bgcolor="#99CCFF">Cae's
Name</th>
<th bgcolor="#99CCFF">Supervisor's
Name </th>
<th bgcolor="#99CCFF">Language</th>
<th bgcolor="#99CCFF">First
Name</th>
<th bgcolor="#99CCFF">Last Name
</th>
<th bgcolor="#99CCFF">Phone
Number</th>
<th bgcolor="#99CCFF">Tech
Number</th>
<th bgcolor="#99CCFF">Job Number
</th>
<th bgcolor="#99CCFF">Cust /
Comment</th>
<th bgcolor="#99CCFF">Feed
Back</th>
</tr>
<%
For I = 0 To LoopRecordCount
Response.Write "<tr>" & vbCrLf
For J = 0 To ifieldCount
Response.Write vbTab & "<td>" & arrDBData(J, I) & "</td>" &
vbCrLf
Next ' J
Response.Write "</tr>" & vbCrLf
Next ' I
%>
</table>
<style>
body {
font-family: Arial, Helvetica, sans-serif;
font-size: 12px;
}
td {
font-family: Arial, Helvetica, sans-serif;
font-size: 12px;
}
listingLink {
font-family: Arial, Helvetica, sans-serif;
font-size: 12px;
font-weight: bold;
color: blue;
text-decoration:none;
margin-left:0px;
margin-right:0px;
}
a.listingLink:hover {
color:#FF0000;
}
activepage {
color:#ffffee;
background-color: #000033;
font-weight: bold;
}
</style>
helph with search n disp on result to link
