Quote:
|
Originally Posted by ChipJohns
Hi Johntech,
Yes you are on the right track. It is going to take a little more than what you are showing. Probably a <br /> to seperate the lines. And you will need to decide what is going to be the linked text that will go inbetween the anchor tags..
|
Hi Chip
If I use the ASP code I have sent before to display the part info what do I need to do to close the window. If I close the window and try to view another parts info it will not open the info window again. Here is the code for the part info window
================================================== =
<<A href="mailto:%@LANGUAGE="VBSCRIPT">%@LANGUAGE="VBS CRIPT" CODEPAGE="1252"%>
<%
' Program name - Partslist4.asp
' Beginning of ASP code
'Use to make sure ALL variables are dimentioned
Option Explicit
'Set up the Dim statements for your connection and the sql statement
Dim objConnection, objRS, strQuery
Dim strConnection
'Dimention the receiving string
Dim sPart
'sPart is the receiving part number
sPart = Request.QueryString("part")
' change YourDSN to the name you gave the DSN datasource
set objConnection = Server.CreateObject("ADODB.Connection")
'The data source is PARTS as created in the Data Source in the control panel
strConnection = "Data Source=Parts;"
'Open the connection to the database
objConnection.Open strConnection
'Set the connections for the recordset
Set objRS = Server.CreateObject("ADODB.Recordset")
Set objRS.ActiveConnection = objConnection
'Build the SQL statement to access the RecordSet
strQuery = "SELECT * FROM tblPartsList Where PartNo = '" & sPart & "'"
'Run the query
objRS.Open strQuery
'End of ASP code
%>
<!--- Beginning of HTML code --->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Part Information</title>
</head>
<body>
<!--- End of HTML code --->
<%
'Beginning of ASP code
Response.Write "Part No. : "
Response.Write objRS("PartNo")
Response.Write "<br> Discription : "
Response.Write objRS("Description")
Response.Write "<br> Quantity : "
Response.Write objRS("Quantity")
Response.Write "<br> Cabinet Location : "
Response.Write objRS("Location")
Response.Write "<br> Comments : "
Response.Write objRS("Comments")
'End of ASP code
%>
<br><br>
<A href="javascript
: self.close ()">Close</A>
<a href="javascript
: parent.refresh()"></a>
</body></html>
