Jump to content

twindude

Members
  • Posts

    21
  • Joined

  • Last visited

twindude's Achievements

Newbie

Newbie (1/7)

0

Reputation

  1. OKI already have the other page ....... i now have it working.........it give me search backbuti would like specifics........like if i type in "servername" i would like for it to look in the servername table and only bring back that ONE data field..........its bring back a lot more..........any ideas?also thanks for the help oh yea, how i fixed it,in the action you have to put in the other page name.........therefore it will go to the new page and run the recordset on that page to give back your data of search..
  2. ok. done but it never runs the search/query against the recordset...........when i clik on the submit button, brings up empty page........but when i test the recordsets they work...........so how do i apply the submit button to run the recordset query......?
  3. PLEASE HELP??using DW8I have a search page with:7 recordsets (test in DW8 and they work, pulls the correct data back on each recordset)7 forms on one page to search with and search button on each formI would like to have each form (via text box with a search button) search a different column in the DB. Would like for this data to show up on a new different page (popup)...I can't get the search button to work..? When someone cliks on the search button of any of the 7 forms it should return a list of data on a new page but nothing happens.......is there a simplier way to make this work?How can i get the search buttons to activate the form?need to see code, <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!--#include file="Connections/remote_db.asp" --><%Dim ServerName__MMColParamServerName__MMColParam = "1"If (Request.QueryString("SystemName") <> "") Then ServerName__MMColParam = Request.QueryString("SystemName")End If%><%Dim ServerNameDim ServerName_numRowsSet ServerName = Server.CreateObject("ADODB.Recordset")ServerName.ActiveConnection = MM_remote_db_STRINGServerName.Source = "SELECT * FROM Servers WHERE SystemName = '" + Replace(ServerName__MMColParam, "'", "''") + "' ORDER BY ID ASC"ServerName.CursorType = 0ServerName.CursorLocation = 2ServerName.LockType = 1ServerName.Open()ServerName_numRows = 0%><%Dim OS__MMColParamOS__MMColParam = "1"If (Request.QueryString("OperatingSystem") <> "") Then OS__MMColParam = Request.QueryString("OperatingSystem")End If%><%Dim OSDim OS_numRowsSet OS = Server.CreateObject("ADODB.Recordset")OS.ActiveConnection = MM_remote_db_STRINGOS.Source = "SELECT * FROM Servers WHERE OperatingSystem LIKE '%" + Replace(OS__MMColParam, "'", "''") + "%' ORDER BY ID ASC"OS.CursorType = 0OS.CursorLocation = 2OS.LockType = 1OS.Open()OS_numRows = 0%><%Dim Manufactor__MMColParamManufactor__MMColParam = "1"If (Request.QueryString("Manufacturer") <> "") Then Manufactor__MMColParam = Request.QueryString("Manufacturer")End If%><%Dim ManufactorDim Manufactor_numRowsSet Manufactor = Server.CreateObject("ADODB.Recordset")Manufactor.ActiveConnection = MM_remote_db_STRINGManufactor.Source = "SELECT * FROM Servers WHERE Manufacturer LIKE '%" + Replace(Manufactor__MMColParam, "'", "''") + "%' ORDER BY ID ASC"Manufactor.CursorType = 0Manufactor.CursorLocation = 2Manufactor.LockType = 1Manufactor.Open()Manufactor_numRows = 0%><%Dim systemFun__MMColParamsystemFun__MMColParam = "1"If (Request.QueryString("SystemFunction") <> "") Then systemFun__MMColParam = Request.QueryString("SystemFunction")End If%><%Dim systemFunDim systemFun_numRowsSet systemFun = Server.CreateObject("ADODB.Recordset")systemFun.ActiveConnection = MM_remote_db_STRINGsystemFun.Source = "SELECT * FROM Servers WHERE SystemFunction LIKE '%" + Replace(systemFun__MMColParam, "'", "''") + "%' ORDER BY ID ASC"systemFun.CursorType = 0systemFun.CursorLocation = 2systemFun.LockType = 1systemFun.Open()systemFun_numRows = 0%><%Dim IP__MMColParamIP__MMColParam = "1"If (Request.QueryString("IPAddress") <> "") Then IP__MMColParam = Request.QueryString("IPAddress")End If%><%Dim IPDim IP_numRowsSet IP = Server.CreateObject("ADODB.Recordset")IP.ActiveConnection = MM_remote_db_STRINGIP.Source = "SELECT * FROM Servers WHERE IPAddress = '" + Replace(IP__MMColParam, "'", "''") + "'"IP.CursorType = 0IP.CursorLocation = 2IP.LockType = 1IP.Open()IP_numRows = 0%><%Dim RackNumber__MMColParamRackNumber__MMColParam = "1"If (Request.QueryString("Rack") <> "") Then RackNumber__MMColParam = Request.QueryString("Rack")End If%><%Dim RackNumberDim RackNumber_numRowsSet RackNumber = Server.CreateObject("ADODB.Recordset")RackNumber.ActiveConnection = MM_remote_db_STRINGRackNumber.Source = "SELECT * FROM Servers WHERE Rack = " + Replace(RackNumber__MMColParam, "'", "''") + ""RackNumber.CursorType = 0RackNumber.CursorLocation = 2RackNumber.LockType = 1RackNumber.Open()RackNumber_numRows = 0%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"><html><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><title>Untitled Document</title></head><body><table width="100%" border="0" bordercolor="#006633" bgcolor="#006633"> <tr> <td width="34%" align="left" valign="middle" bgcolor="#006633"><img src="Images/header_sei.gif" width="192" height="63"></td> <td width="66%" align="center" valign="middle" bgcolor="#006633"><h1 align="left"><font color="#FFFFFF" size="+2"> SEUS Server Information</font></h1></td> </tr></table><table width="100%" height="201"> <tr> <td width="23%" height="20">Search by Server Name </td> <td width="61%"> <form name="form1" method="post" action=""> <input name="servername" type="text" id="servername"> <input name="Submit" type="submit" value="Search"> </form></td> <td width="16%"> </td> </tr> <tr> <td height="20">Search by OS </td> <td> <form name="form2" method="post" action=""> <input name="os" type="text" id="os"> <input name="Submit" type="submit" value="Search"> </form></td> <td> </td> </tr> <tr> <td height="20">Search by Manufactor </td> <td> <form name="form3" method="post" action=""> <input name="manufactor" type="text" id="manufactor"> <input name="Submit" type="submit" value="Search"> </form></td> <td> </td> </tr> <tr> <td height="20">Search by System Function </td> <td> <form name="form4" method="post" action=""> <input name="sysfun" type="text" id="sysfun"> <input name="Submit" type="submit" value="Search"> </form></td> <td> </td> </tr> <tr> <td height="27">Search by IP </td> <td> <form name="form5" method="post" action=""> <input name="ip" type="text" id="ip"> <input name="Submit" type="submit" value="Search"> </form></td> <td> </td> </tr> <tr> <td height="20">Search by AdminInteface </td> <td> <form name="form6" method="post" action=""> <input name="admnface" type="text" id="admnface"> <input name="Submit" type="submit" value="Search"> </form></td> <td> </td> </tr> <tr> <td height="10">Search by Rack Number </td> <td> <form name="form7" method="post" action=""> <input name="rack" type="text" id="rack"> <input name="Submit" type="submit" value="Search"> </form></td> <td> </td> </tr></table></body></html><%ServerName.Close()Set ServerName = Nothing%><%OS.Close()Set OS = Nothing%><%Manufactor.Close()Set Manufactor = Nothing%><%systemFun.Close()Set systemFun = Nothing%><%IP.Close()Set IP = Nothing%><%RackNumber.Close()Set RackNumber = Nothing%>
  4. Having a problem with namespacing -- need to add this to the test server.... DreamweaverCtrls.dll in the BIN dir........ on a Windows 2003 Std Server???I have read THIS PAGE... (www.adobe.com/cfusion/knowledgebase/index.cfm?id=tn_16387)Can't find where the BIN dir is on a Win2003 SERVER???ANYONE?????
  5. OK here is the code for the page before.......... when i click on 'view Record" i would like to the 'row' i click on ONLY data. like if i clik of object 4 "view record', I only want the next page to show me the record 4 data ONLY..However, it shows me 'row=4' in the address bar but the data from record 4 is not there and ONLY show record 1 no matter which one row/record i clik on....? <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!--#include file="Connections/SvrList.asp" --><%Dim Recordset1Dim Recordset1_numRowsSet Recordset1 = Server.CreateObject("ADODB.Recordset")Recordset1.ActiveConnection = MM_SvrList_STRINGRecordset1.Source = "SELECT * FROM SvrList ORDER BY ID ASC"Recordset1.CursorType = 0Recordset1.CursorLocation = 2Recordset1.LockType = 1Recordset1.Open()Recordset1_numRows = 0%><%Dim Repeat1__numRowsDim Repeat1__indexRepeat1__numRows = -1Repeat1__index = 0Recordset1_numRows = Recordset1_numRows + Repeat1__numRows%><%' *** Recordset Stats, Move To Record, and Go To Record: declare stats variablesDim Recordset1_totalDim Recordset1_firstDim Recordset1_last' set the record countRecordset1_total = Recordset1.RecordCount' set the number of rows displayed on this pageIf (Recordset1_numRows < 0) Then Recordset1_numRows = Recordset1_totalElseif (Recordset1_numRows = 0) Then Recordset1_numRows = 1End If' set the first and last displayed recordRecordset1_first = 1Recordset1_last = Recordset1_first + Recordset1_numRows - 1' if we have the correct record count, check the other statsIf (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 IfEnd If%><%' *** Recordset Stats: if we don't know the record count, manually count themIf (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 IfEnd If%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"><html><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><title>Server Information</title></head><body><table width="100%" border="0" bordercolor="#990000" bgcolor="#990000"> <tr> <td width="34%" align="left" valign="middle" bgcolor="#990000"><img src="duke_energy.bmp"></td> <td width="66%" align="center" valign="middle" bgcolor="#990000"><h1 align="left"><font color="#FFFFFF" size="+2">DPIT Team Server Information</font></h1></td> </tr></table><table width="100%" height="70" border="0" bordercolor="#CCCCCC" bgcolor="#CCCCCC"> <tr> <td><table width="823" border="0" align="center"> <tr><td width="29%"> <form name="form1" method="post" enctype="application/x-www-form-urlencoded" form action="svrsearch.asp" target="_self"> Server Search: <label> <input name="textfield" type="text" value="Disabled"> </label> </form> </td> <td width="28%"> <form name="form2" method="post" enctype="application/x-www-form-urlencoded" action="/SQL05/serverinfo.asp" target="_self"> <div align="center"><br> <input name="Submit" type="submit" value="Home"> </div> </form> </td> <td width="43%"><div align="right"> <form name="form3" method="post" action="addserver.asp"> <label> <div align="center"><a href="AddServer2DB/addserver.asp">Add Server Record</a></div> </label> </form> </div></td> </tr></table> </td> </tr> <tr> <td>Server Total: <%=(Recordset1_total)%></td> </tr></table><table width="100%" border="0" align="center" bordercolor="#0033FF" bgcolor="#0033FF"> <tr bgcolor="#000033"> <td width="2%" bgcolor="#0033FF"></td> <td width="14%" bgcolor="#0033FF"><strong><font color="#FFFFFF">View Record</font></strong></td> <td width="8%" bgcolor="#0033FF"><strong><font color="#FFFFFF">OS </font></strong></td> <td width="16%" bgcolor="#0033FF"><strong><font color="#FFFFFF">Server Name </font></strong></td> <td width="17%" bgcolor="#0033FF"><strong><font color="#FFFFFF">Domain</font></strong></td> <td width="14%" bgcolor="#0033FF"><strong><font color="#FFFFFF">Network</font></strong></td> <td width="29%" bgcolor="#0033FF"><strong><font color="#FFFFFF">IP Address </font></strong></td> </tr></table><% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %> <table width="100%" height="37" border="0" align="center"> <tr> <td width="10%"><font color="#000000"><a href="vrecordsi.asp?row=<%=(Recordset1.Fields.Item("ID").Value)%>">View Record</a></font></td> <td width="14%"><div align="center"><%=(Recordset1.Fields.Item("OS").Value)%></div></td> <td width="16%"><%=(Recordset1.Fields.Item("ServerName").Value)%></td> <td width="17%"><%=(Recordset1.Fields.Item("Domain").Value)%></td> <td width="14%"><%=(Recordset1.Fields.Item("Network").Value)%></td> <td width="29%"><%=(Recordset1.Fields.Item("IP").Value)%></td> </tr> </table><% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset1.MoveNext()Wend%></body></html><%Recordset1.Close()Set Recordset1 = Nothing%>
  6. you can also move the page to a different directory and use the OS login info for that dir.i usually use NTFS permissions on a windows system, and apply NTFS to another dir that i create and put the password protected pages in
  7. HERE IS THE CODE.....<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!--#include file="Connections/SvrList.asp" --><%Dim Recordset1Dim Recordset1_numRowsSet Recordset1 = Server.CreateObject("ADODB.Recordset")Recordset1.ActiveConnection = MM_SvrList_STRINGRecordset1.Source = "SELECT * FROM SvrList ORDER BY ID ASC"Recordset1.CursorType = 0Recordset1.CursorLocation = 2Recordset1.LockType = 1Recordset1.Open()Recordset1_numRows = 0%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"><html><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><title>View Record</title><style type="text/css"><!--.style1 {color: #FFFFFF}--></style></head><body><table width="100%" border="0" align="center" bordercolor="#D4D0C8" bgcolor="#990000"> <tr> <td bgcolor="#990000"><h1 align="center" class="style1 style1">Server Record</h1></td> </tr></table><table width="100%" height="30" border="0" bordercolor="#CCCCCC" bgcolor="#CCCCCC"> <tr> <td><table width="510" border="0" align="center"> <tr> <td width="44%"> </form> </td> <td width="56%"> <form name="form2" method="post" enctype="application/x-www-form-urlencoded" action="/serverlist/serverinfo.asp" target="_self"> <input name="Submit" type="submit" value="Home"> </form> </td> </tr></table> </td> </tr></table><table width="100%" border="0" bordercolor="#0033FF" bgcolor="#0033FF"> <tr> <td><div align="center"><span class="style1"><strong><%=(Recordset1.Fields.Item("ServerName").Value)%></strong></span></div></td> </tr></table><table width="100%" border="1" align="center" bgcolor="#990000"> <tr> <td width="50%"><table width="100%" border="0"> <tr bgcolor="#CCCCCC"> <td width="28%"><strong>Server Name:</strong></td> <td width="72%"><input type="text" style="TEXT-TRANSFORM: uppercase; background:; WIDTH: 240px" value="<%=(Recordset1.Fields.Item("ServerName").Value)%>"></td> </tr> </table></td> <td width="50%"><table width="100%" border="0"> <tr bgcolor="#CCCCCC"> <td width="20%"><strong>IP Address: </strong></td> <td width="60%"><input name="text2" type="text" style="TEXT-TRANSFORM: uppercase; background:; WIDTH: 240px" value="<%=(Recordset1.Fields.Item("IP").Value)%>"></td> </tr> </table></td> </tr> <tr> <td><table width="100%" border="0"> <tr bgcolor="#999999"> <td width="28%" bgcolor="#999999"><strong>Domain :</strong></td> <td width="72%"><input type="text" style="TEXT-TRANSFORM: uppercase; background:; WIDTH: 240px" value="<%=(Recordset1.Fields.Item("Domain").Value)%>"></td> </tr> </table></td> <td><table width="100%" border="0"> <tr bgcolor="#999999"> <td width="20%"><strong>Subnet:</strong></td> <td width="60%"><input type="text" style="TEXT-TRANSFORM: uppercase; background:; WIDTH: 240px" value="<%=(Recordset1.Fields.Item("SubnetMask").Value)%>"></td> </tr> </table></td> </tr> <tr> <td><table width="100%" border="0"> <tr bgcolor="#CCCCCC"> <td width="28%"><strong>Network:</strong></td> <td width="72%"><input type="text" style="TEXT-TRANSFORM: uppercase; background:; WIDTH: 240px" value="<%=(Recordset1.Fields.Item("Network").Value)%>"></td> </tr> </table></td> <td><table width="100%" border="0"> <tr bgcolor="#CCCCCC"> <td width="20%"><strong>Model: </strong></td> <td width="60%"><input name="textarea42" type="text" style="TEXT-TRANSFORM: uppercase; background:; WIDTH: 240px" value="<%=(Recordset1.Fields.Item("Model").Value)%>"></td> </tr> </table></td> </tr> <tr> <td><table width="100%" border="0"> <tr bgcolor="#999999"> <td width="28%" bgcolor="#999999"><strong>iLO IP :</strong></td> <td width="72%"><input name="textarea" type="text" style="TEXT-TRANSFORM: uppercase; background:; WIDTH: 240px" value="<%=(Recordset1.Fields.Item("iLoIP").Value)%>"></td> </tr> </table></td> <td><table width="100%" border="0"> <tr bgcolor="#999999"> <td width="20%" bgcolor="#999999"><strong>Serial:</strong></td> <td width="60%"><input name="textarea3" type="text" style="TEXT-TRANSFORM: uppercase; background:; WIDTH: 240px" value="<%=(Recordset1.Fields.Item("Serial").Value)%>"></td> </tr> </table></td> </tr> <tr> <td><table width="100%" border="0"> <tr bgcolor="#CCCCCC"> <td width="28%"><strong>iLO Pswd:</strong></td> <td width="72%"><input name="textarea5" type="text" style="TEXT-TRANSFORM: uppercase; background:; WIDTH: 240px" value="<%=(Recordset1.Fields.Item("iLoPswd").Value)%>"></td> </tr> </table></td> <td><table width="100%" border="0"> <tr bgcolor="#CCCCCC"> <td width="20%"><strong>iLoKey: </strong></td> <td width="60%"><input name="text" type="text" style="TEXT-TRANSFORM: uppercase; background:; WIDTH: 240px" value="<%=(Recordset1.Fields.Item("iLoKEY").Value)%>"></td> </tr> </table></td> </tr> <tr> <td><table width="100%" border="0"> <tr bgcolor="#999999"></tr> </table> <table width="100%" border="0"> <tr bgcolor="#CCCCCC"> <td width="28%"><strong>OS:</strong></td> <td width="72%"><input name="textarea7" type="text" style="TEXT-TRANSFORM: uppercase; background:; WIDTH: 240px" value="<%=(Recordset1.Fields.Item("OS").Value)%>"></td> </tr> </table></td> <td><table width="100%" border="0"> <tr bgcolor="#CCCCCC"> <td width="20%"><strong>Comments:</strong></td> <td width="60%"><Textarea name="textarea2" rows="1" WRAP="virtual" style="TEXT-TRANSFORM: uppercase; background:; WIDTH: 240px"><%=(Recordset1.Fields.Item("Comments").Value)%></textarea></td> </tr> </table></td> </tr></table><table width="100%" border="0"> <tr> <td> <!-- 'change the location from testedit.asp to editserver.asp to next --> <form name="form3" method="post" enctype="application/x-www-form-urlencoded" action="EditServerinfo/validate.asp" target="_self"> <div align="center"><!-- 'hidden session to copy row # to this page --> <input name=row type=hidden value=<%=request.QueryString("row")%>> <input name="Edit" type="submit" value="Edit"> </div> </form> </td> </tr></table></body></html><%Recordset1.Close()Set Recordset1 = Nothing%>
  8. twindude

    Brinkster problem

    I have a few clients that use Brinster to do hosting...i have been trying to configure a DB connect and can't seem to get it to work.anyone else here use them???or can help
  9. First i have 3 pages........ One DatabaseI have a query that works and gets the database info and displays it!Problem:first page pulls a list from DB and displays it, repeat region show all recordssecond page (view record) should view the record choosen with more detailed info of that record (wrong info displayed, ONLY first record in DB, no matter which record i choose from page one)third page allows for change/update of the database info in text boxes with form (wrong info displayed ONLY first record in DB, no matter which record i choose from page one)I have the correct row variable working (see it in the address bar).........but the text is wrong and only show the first record in the databaseseem like its not passing the text info from page to page? not sure?Can anyone help, I can also send the code if requested....email or post reply.... luv_lafs.yahoo.com
×
×
  • Create New...