<%@ Language=VBScript %>
<!--#INCLUDE VIRTUAL="islogin.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="da">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>KE-Burgmann Bredan - Konfigurator</title>
<style type="text/css">
<!--
A0 {font-size: 8pt; font-family: Verdana}
A1 {font-size: 10pt; font-family: Verdana}
A2 {font-size: 12pt; font-family: Verdana}
-->
a {text-decoration:none;}
</style>
<style fprolloverstyle>A:hover {color: #050B51; font-family: Arial; font-size: 8 pt}
</style>
</head>
<body link="#008000" vlink="#008000" alink="#008000" bgproperties="fixed" background="images/line.gif" topmargin="0" leftmargin="0">
<%
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'TYPE BETEGNELSE
Session("InletEnd") = Request.form("InletEND")
Session("OutletEnd") = Request.form("OutletEND")
Session("Lederor") = Request.form("LINER")
Session("EndDN") = Request.form("DN")
Session("Type") = Request.form("TYPE")
Session("FlangeKostPrisTid") = "0"
Session("TotalPrisPerStyk_01") = "0"
Session("TotalPrisPerStyk_02") = "0"
select case Session("InletEnd")
case "1"
KompTypenInlet = "S"
case "2"
KompTypenInlet = "F"
case "3"
KompTypenInlet = "F"
end select
select case Session("OutletEnd")
case "1"
KompTypenOutlet = "S"
case "2"
KompTypenOutlet = "F"
case "3"
KompTypenOutlet = "F"
end select
select case Session("Lederor")
case "YES"
KompTypenLedeRor = "L"
case "NO"
KompTypenLedeRor = ""
end select
Varenummer = KompTypenInlet & KompTypenOutlet & KompTypenLedeRor
Select Case Varenummer
case "SS"
TypeOne = "A"
case "FF"
TypeOne = "F"
case "SF"
TypeOne = "B"
case "FS"
TypeOne = "B"
case "SSL"
TypeOne = "C"
case "SFL"
TypeOne = "E"
case "FSL"
TypeOne = "D"
case "FFL"
TypeOne = "G"
end select
TypeTwo = "U"
Session("MainType") = TypeOne & TypeTwo
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Set ProdukterConn = Server.CreateObject("ADODB.Connection")
ProdukterDSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../cgi-data/PRODUKTER.mdb")
ProdukterConn.Open ProdukterDSN
Set McauConn = Server.CreateObject("ADODB.Connection")
McauDSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../cgi-data/mcaudb.mdb")
McauConn.Open McauDSN
strMacu_SQL = "SELECT * from STANDARD"
Set rsMCAUStandard = McauConn.Execute(strMacu_SQL)
Session("Timepris") = rsMCAUStandard("Timepris")
If Request.form("TYPE") = "UNI" Then
strSQL = Session("StringSøgningUNI5")
else
strSQL = Session("Stringsøgning5")
End If
Session("StringSøgningAll") = "Select * From BELLOWS WHERE DN= " & Request.form("DN")& " AND PN>= " & Request.form("PRESSURE")& " AND AX_MOV>= " & Request.form("AX") &" order by NAVN ASC "
Session("StringSøgning5") = "Select TOP 5 * From BELLOWS WHERE DN= " & Request.form("DN")& " AND PN>= " & Request.form("PRESSURE")& " AND AX_MOV>= " & Request.form("AX")
Session("StringSøgningUNIAll") = "Select * From products WHERE DN= " & Request.form("DN")& " AND END= " & Request.form("END")& " AND TRYK>= " & Request.form("PRESSURE")& " AND AX_MOV>= " & Request.form("AX")& " AND LAT_MOV>= " & Request.form("LAT_X") &" order by NAVN ASC "
Session("StringSøgningUNI5") = "Select Top 5 * From products WHERE DN= " & Request.form("DN")& " AND END= " & Request.form("END")& " AND TRYK>= " & Request.form("PRESSURE")& " AND AX_MOV>= " & Request.form("AX")& " AND LAT_MOV>= " & Request.form("LAT_X") &" order by NAVN ASC "
Set rs = ProdukterConn.Execute(strSQL)
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
%>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4" bgcolor="#050B51">
<tr>
<td width="100%">
<font face="Arial" size="2">
<img border="0" src="images/logo.jpg" align="left" width="800" height="80"></font></td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" width="75%" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0">
<tr>
<td>
<p></p>
<p></p>
<table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" height="50%">
<tr>
<td width="100%" valign="top">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber3" height="30">
<tr>
<td width="77" height="1" align="center" bgcolor="#050B51">
<p align="left">
<b><font face="Arial" size="1" color="#FFFFFF"> Type</font></b></td>
<td width="77" height="1" align="center" bgcolor="#050B51" valign="bottom"> </td>
<td width="77" height="1" align="center" bgcolor="#050B51"> </td>
<td width="77" height="1" align="center" bgcolor="#050B51"> </td>
<td width="78" height="1" align="center" bgcolor="#050B51"> </td>
<td width="78" height="1" align="center" bgcolor="#050B51"> </td>
<td width="78" height="1" align="center" bgcolor="#050B51"> </td>
<td width="78" height="1" align="center" bgcolor="#050B51"> </td>
</tr><font size="1" face="Arial"><br>
</table>
<%
Dim Counter
Counter=0
if RS.EOF then
response.write "<tr>"
response.write "<A1>" & "<b>" & "No matches where found..." & "</b></p><p>"
else
Do until rs.EOF
strDetails = "See Product specification"
strLink = "<a href='ejspec.asp?id=" & rs("Id") & "'>" & strDetails & "</a>"
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'VALG VED SVEJSEENDER
If Session("InletEnd") = "1" Then
strMacu_SQL = "SELECT * from SVEJSEENDEKALKULATION"
Set rsMCAUSvejseendeKalkulation = McauConn.Execute(strMacu_SQL)
Session("opkortning") = rsMCAUSvejseendeKalkulation("opkortning")
Session("skrpning") = rsMCAUSvejseendeKalkulation("skrpning")
Session("hndtering_01") = rsMCAUSvejseendeKalkulation("hndtering_01")
Session("forbukning") = rsMCAUSvejseendeKalkulation("forbukning")
Session("hndtering_02") = rsMCAUSvejseendeKalkulation("hndtering_02")
hndtering_02 = rsMCAUSvejseendeKalkulation("hndtering_02")
strMacu_SQL = "SELECT * from FREMSTILLING"
Set rsMCAUFremstilling = McauConn.Execute(strMacu_SQL)
Session("Svejseende_Skrpning_Rund") = rsMCAUFremstilling("Svejseende_Skrpning_Rund")
Session("Svejseende_Skrpning_Langs") = rsMCAUFremstilling("Svejseende_Skrpning_Langs")
Session("Svejseende_Svejsning") = rsMCAUFremstilling("Svejseende_Svejsning")
Session("Svejseende_Valsning") = rsMCAUFremstilling("Svejseende_Valsning")
Session("Svejseende_Slibning") = rsMCAUFremstilling("Svejseende_Slibning")
strMacu_SQL = "SELECT * from SVEJSEENDEDATA WHERE DN=" & Session("EndDN") & "And MATR='RSt 37-2'"
Set rsMCAUSvejseendeData = McauConn.Execute(strMacu_SQL)
Do until rsMCAUSvejseendeData.EOF
If rsMCAUSvejseendeData("T") = "-" Then
rsMCAUSvejseendeData.movenext
else
Session("SvejseendeTykkelse") = rsMCAUSvejseendeData("T")
Session("SvejseendeMatr") = rsMCAUSvejseendeData("Matr")
Session("SvejseendePRIS_KG") = rsMCAUSvejseendeData("PRIS_KG")
Session("SvejseendeO") = rsMCAUSvejseendeData("O")
rsMCAUSvejseendeData.movenext
end if
loop
If Session("SvejseendeTykkelse") > "4" Then
UdRegnSvejseEnderPerStyk = ((clng(Session("SvejseendeO")) - clng(Session("SvejseendeTykkelse"))) * ("0,003141593")) * (("50") / ("1000") * ("4") * ("7,85"))
UdRegnSvejseEnderPerStyk = (ROUND(UdRegnSvejseEnderPerStyk,2))
UdRegnSkrpning_02 = "50" / CDbl(Session("Svejseende_Skrpning_Langs"))
UdRegnSkrpning_02 = (ROUND(UdRegnSkrpning_02,2))
End if
UdRegnSkrpning = ((clng(Session("SvejseendeO")) * "3,14") / (clng(Session("Svejseende_Skrpning_Rund")) / "60")) / "60"
UdRegnSkrpning = (ROUND(UdRegnSkrpning,2))
UdRegnSvejsning = ("50") / clng(Session("Svejseende_Svejsning"))
UdRegnSvejsning = (ROUND(UdRegnSvejsning,2))
UdRegnValsning = (clng(Session("SvejseendeO")) * "3,14") / clng(session("Svejseende_Valsning"))
UdRegnValsning = (ROUND(UdRegnValsning,2))
UdRegnSlibning = (clng(Session("SvejseendeO")) * "3,14") / clng(session("Svejseende_Slibning"))
UdRegnSlibning = (ROUND(UdRegnSlibning,2))
Tid = CDbl(Session("opkortning")) + CDbl(UdRegnSkrpning) + CDbl(Session("hndtering_01")) + CDbl(UdRegnSvejsning) + CDbl(UdRegnSkrpning_02) + CDbl(Session("hndtering_01")) + CDbl(Session("forbukning")) + CDbl(UdRegnValsning) + CDbl(hndtering_02) + CDbl(UdRegnSlibning)
Tid = (ROUND(Tid,2))
MAterPrisPerStyk = CDbl(UdRegnSvejseEnderPerStyk) * CDbl(Session("SvejseendePRIS_KG"))
MAterPrisPerStyk = (ROUND(MAterPrisPerStyk,2))
TotalPrisPerStyk = (Tid / "60" * clng(Session("TimePris"))) + MAterPrisPerStyk
TotalPrisPerStyk = TotalPrisPerStyk
TotalPrisPerStyk = (ROUND(TotalPrisPerStyk,2))
Session("TotalPrisPerStyk_01") = TotalPrisPerStyk
Session("TotalPrisPerStyk_02") = TotalPrisPerStyk
Else
end if
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'VALG VED FASTE-FLANGER
If Session("InletEnd") = "2" Then
if Session("EndDN") => "500"Then
Session("FlangeStandard") = "DIN 86044"
else
Session("FlangeStandard") = "DIN 2573"
end if
strMacu_SQL = "SELECT * from FLANGEDATA WHERE DN=" & "'" & Session("EndDN") & "'" & " AND [STANDARD]=" & "'" & Session("FlangeStandard") & "'"
Set rsMCAUFlangeData = McauConn.Execute(strMacu_SQL)
Session("FlangePris") = rsMCAUFlangeData("37_2_PRIS")
FlangeKostPrisTid = ((("3,14" * clng(rs("CUFF_OD")) * "2") / "1680") * CDbl(Session("Timepris"))) + CDbl(Session("Flangepris"))
FlangeKostPrisTid = (ROUND(FlangeKostPrisTid,2))
Session("FlangeKostPrisTid") = FlangeKostPrisTid
End If
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'VALG VED LØSE-FLANGER
If Session("InletEnd") = "3" Then
if Session("EndDN") => "500"Then
Session("FlangeStandard") = "DIN 86044"
else
Session("FlangeStandard") = "DIN 2576"
end if
strMacu_SQL = "SELECT * from FLANGEDATA WHERE DN=" & "'" & Session("EndDN") & "'" & " AND [STANDARD]=" & "'" & Session("FlangeStandard") & "'"
Set rsMCAUFlangeData = McauConn.Execute(strMacu_SQL)
Session("FlangePris") = rsMCAUFlangeData("37_2_PRIS")
FlangeKostPrisTid = ((("3,14" * rs("Do_BELLOW") * "2") / "3000") * CDbl(Session("Timepris"))) + CDbl(Session("Flangepris"))
FlangeKostPrisTid = (ROUND(FlangeKostPrisTid,2))
Session("FlangeKostPrisTid") = FlangeKostPrisTid
End If
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'HENTNING AF BÆLGDATA
Session("BellowsData_DN") = 0
Session("BellowsData_PN") = 0
Session("BellowsData_ANG_MV") = 0
Session("BellowsData_AX_MOV") = 0
Session("BellowsData_LAT_MOV") = 0
Session("BellowsData_CORRS") = 0
Session("BellowsData_NO_PLY") = 0
Session("BellowsData_PLY_THICKNESS") = 0
Session("BellowsData_CUFF_OD") = 0
Session("BellowsData_CUFF_ID") = 0
Session("BellowsData_HEIGHT") = 0
Session("BellowsData_OD") = 0
Session("BellowsData_RI") = 0
Session("BellowsData_FK") = 0
Session("BellowsData_V") = 0
Session("BellowsData_PITCH") = 0
Session("BellowsData_KBA") = 0
Session("BellowsData_MU_BEFORE") = 0
Session("BellowsData_MU_AFTER") = 0
Session("BellowsData_LB") = 0
Session("BellowsData_ALPHA_A") = 0
Session("BellowsData_SP_RATE_AX") = 0
Session("BellowsData_SP_RATE_ANG") = 0
Session("BellowsData_SP_RATE_ANG") = 0
Session("BellowsData_CYCLES") = 0
Session("BellowsData_EFF_AREAL") = 0
Session("BellowsData_WEIGHT") = 0
Session("BellowsData_COIL") = 0
Session("BellowsData_UDFOLD") = 0
Session("BellowsData_DEL_PLADER") = 0
Session("BellowsData_HELE_PLADER") = 0
Session("BellowsData_PLADESTRIMMEL") = 0
Session("BellowsData_NUMBER_OF_BELLOWS") = "1"
Session("BellowsData_DN") = rs("DN")
Session("BellowsData_PN") = rs("PN")
Session("BellowsData_ANG_MV") = rs("ANG_MV")
Session("BellowsData_AX_MOV") = rs("AX_MOV")
Session("BellowsData_LAT_MOV") = rs("LAT_MV")
Session("BellowsData_CORRS") = rs("CORRS")
Session("BellowsData_NO_PLY") = rs("NO_PLY")
Session("BellowsData_PLY_THICKNESS") = rs("PLY_THICKNESS")
Session("BellowsData_CUFF_OD") = rs("CUFF_OD")
Session("BellowsData_CUFF_ID") = rs("CUFF_ID")
Session("BellowsData_HEIGHT") = rs("BELLOWS_HEIGHT")
Session("BellowsData_OD") = rs("BELLOWS_OD")
Session("BellowsData_RI") = rs("RI")
Session("BellowsData_FK") = rs("FK")
Session("BellowsData_V") = rs("V")
Session("BellowsData_PITCH") = rs("PITCH")
Session("BellowsData_KBA") = rs("KBA")
Session("BellowsData_MU_BEFORE") = rs("MU_BEFORE")
Session("BellowsData_MU_AFTER") = rs("MU_AFTER")
Session("BellowsData_LB") = rs("BELLOW_LB")
Session("BellowsData_ALPHA_A") = rs("ALPHA_A")
Session("BellowsData_SP_RATE_AX") = rs("SP_RATE_AX")
Session("BellowsData_SP_RATE_ANG") = rs("SP_RATE_ANG")
Session("BellowsData_SP_RATE_ANG") = rs("SP_RATE_LAT")
Session("BellowsData_CYCLES") = rs("CYCLES")
Session("BellowsData_EFF_AREAL") = rs("EFFEKTIV_AREAL")
Session("BellowsData_WEIGHT") = rs("WEIGHT_BELLOW")
Session("BellowsData_COIL") = rs("COIL_BREDDE")
Session("BellowsData_UDFOLD") = rs("UDFOLD")
Session("BellowsData_DEL_PLADER") = rs("DEL_PLADER")
Session("BellowsData_HELE_PLADER") = rs("HELE_PLADER")
Session("BellowsData_PLADESTRIMMEL") = rs("PLADSTRIMMEL")
Session("BellowsData_NUMBER_OF_BELLOWS") = "1"
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'BÆLGBEREGNING (PUNCH)
Response.write Session("BellowsData_UDFOLD")
Response.write ("<br>")
Response.write Session("BellowsData_COIL")
Response.write ("<br>")
Response.write Session("BellowsData_CUFF_OD")
Response.write ("<br>")
Response.write Session("BellowsData_DEL_PLADER")
Response.write ("<br>")
If clng(Session("BellowsData_COIL")) > clng(1000) Then
Tid1 = (((Session("BellowsData_HELE_PLADER")) * ("7,071")) + ((Session("BellowsData_DEL_PLADER")) / 2)) * "1,152"
else
Tid1 = 5
end if
If CDbl(Session("BellowsData_COIL")) < 1000 Then
Tid2 = ((((5 * sqr(CDbl(Session("BellowsData_UDFOLD")) / 1000)) + (CDbl(Session("BellowsData_UDFOLD")) / 480)) / 4) * CDbl(Session("BellowsData_DEL_PLADER"))) * "0,8"
Else
Tid2 = (((((5 * sqr(CDbl(Session("BellowsData_UDFOLD")) / 1000)) + (CDbl(Session("BellowsData_UDFOLD")) / 480)) / 4) * CDbl(Session("BellowsData_DEL_PLADER"))) * "0,8") * "1,8"
End If
Tid3 = 0
Tid4 = (Session("BellowsData_NUMBER_OF_BELLOWS") * Session("BellowsData_NO_PLY") * "0,8")
Tid5_0 = (5 * (CDbl(Session("BellowsData_UDFOLD")) / (10000))) + ((CDbl(Session("BellowsData_UDFOLD")) / (480)))
Tid5 = (ROUND(Tid5_0 * Session("BellowsData_NO_PLY") * "0,8",2))
Tid6 = Tid4
Tid7 = (ROUND(Sqr((CDbl(Session("BellowsData_CUFF_OD")) * CDbl(Session("BellowsData_UDFOLD"))) / 200000000),5)) * (Session("BellowsData_NO_PLY") * 5)
Tid8 = 0
Tid9 = 0
Tid10 = 0
Tid11 = 0
Tid12 = 0
Tid13 = 0
Tid14 = 0
Tid15 = 0
Tid16 = 0
Tid17 = 0
Tid18 = 0
Tid19 = 0
TotalBalgTid = (Tid1 + Tid2 + Tid3 + Tid4 + Tid5 + Tid6 + Tid7 + Tid8 + Tid9 + Tid10 + Tid11 + Tid12 + Tid13 + Tid14 + Tid15 + Tid16 + Tid17 + Tid18 + Tid19)
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'BÆLGBEREGNING (TOM-WATTS)
'Tid1 = "0"
'Tid2 = "0"
'Tid3 = "0"
'Tid4 = "0"
'Tid5 = "0"
'Tid6 = "0"
'Tid7 = "0"
'Tid8 = "0"
'Tid9 = "0"
'Tid10 = "0"
'Tid11 = "0"
'Tid12 = "0"
'Tid13 = "0"
'Tid14 = "0"
'Tid15 = "0"
'Tid16 = "0"
'Tid17 = "0"
'Tid18 = "0"
'Tid19 = "0"
'TotalBælgTid = Tid1 + Tid2 + Tid3 + Tid4 + Tid5 + Tid6 + Tid7 + Tid8 + Tid9 + Tid10 + Tid11 + Tid12 + Tid13 + Tid14 + Tid15 + Tid16 + Tid17 + Tid18 + Tid19
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
BellowLength = (round(rs("BELLOW_LB"),0))
Session("TOTALPRISKOM") = CDbl(Session("FlangeKostPrisTid")) + CDbl(Session("TotalPrisPerStyk")) + CDbl(Session("TotalPrisPerStyk_01")) + CDbl(Session("TotalPrisPerStyk_02"))
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
response.write ("<br>")
response.write Tid1
response.write ("<br>")
response.write Tid2
response.write ("<br>")
response.write Tid3
response.write ("<br>")
response.write Tid4
response.write ("<br>")
response.write Tid5
response.write ("<br>")
response.write Tid6
response.write ("<br>")
response.write Tid7
response.write ("<br>")
response.write Tid8
response.write ("<br>")
response.write Tid9
response.write ("<br>")
response.write Tid10
response.write ("<br>")
response.write Tid11
response.write ("<br>")
response.write Tid12
response.write ("<br>")
response.write Tid13
response.write ("<br>")
response.write Tid14
response.write ("<br>")
response.write Tid15
response.write ("<br>")
response.write Tid16
response.write ("<br>")
response.write Tid17
response.write ("<br>")
response.write Tid18
response.write ("<br>")
response.write Tid19
response.write ("<br>")
response.write "FlangePris = " & CDbl(Session("FlangeKostPrisTid"))
response.write ("<br>")
response.write Session("Flangepris")
response.write ("<br>")
response.write "SvejseendePris 01 = " & CDbl(Session("TotalPrisPerStyk_01"))
response.write ("<br>")
response.write "SvejseendePris 02 = " & CDbl(Session("TotalPrisPerStyk_02"))
response.write ("<br>")
response.write "BælgPris = " & TotalBalgTid
response.write ("<br>")
response.write "TOTALPRIS = " & Session("TOTALPRISKOM")
response.write "<table bgcolor='F3F3F3' border='1' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#111111' width='100%' id='AutoNumber1'>"
response.write "<tr>"
response.write "<td bgcolor='#050B51' width='100%'><font size='2' face='Arial' color='#FFFFFF'><b>" & Session("MainType") & "-" & right("0000"& rs("DN"),4) & "-" & right("00"& rs("PN"),2) & "-" & right("0000"& BellowLength,4) & " NAME " & rs("id") & "</b></td>"
response.write "</tr>"
response.write "<tr>"
response.write"<td width='100%'>"
response.write"<table bgcolor='F3F3F3' border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#111111' height='100%' width='100%' id='AutoNumber2'>"
response.write"<tr>"
response.write"<td width='50%'>"
response.write "<table bgcolor='F3F3F3' border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#111111' height='100%' width='100%' id='AutoNumber3'>"
response.write "<tr>"
response.write "<td bgcolor='F3F3F3' valign='top' colspan='2' width='50%'><font size='2' face='Arial'>" & strLink & "</td>"
response.write "<td width='50%'></td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td bgcolor='F3F3F3' width='50%'><font size='1' face='Arial'>DN:</td>"
response.write "<td bgcolor='F3F3F3' width='50%'><font size='1' face='Arial'>" & rs("DN") & "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td bgcolor='F3F3F3' width='50%'><font size='1' face='Arial'>Pressure:</td>"
response.write "<td bgcolor='F3F3F3' width='50%'><font size='1' face='Arial'>" & "PN " & rs("PN") & "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td bgcolor='F3F3F3' width='50%'><font size='1' face='Arial'>Lenght:</td>"
response.write "<td bgcolor='F3F3F3' width='50%'><font size='1' face='Arial'>" & BellowLength & " mm" & "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td bgcolor='F3F3F3' width='50%'><font size='1' face='Arial'>Axial Movement:</td>"
response.write "<td bgcolor='F3F3F3' width='50%'><font size='1' face='Arial'>" & rs("AX_MOV") & " mm" & "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td bgcolor='F3F3F3' width='50%'><font size='1' face='Arial'>Lateral Movement:</td>"
response.write "<td bgcolor='F3F3F3' width='50%'><font size='1' face='Arial'>" & rs("LAT_MV") & " mm" & "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td bgcolor='F3F3F3' width='50%'><font size='1' face='Arial'>Weight:</td>"
response.write "<td bgcolor='F3F3F3' width='50%'><font size='1' face='Arial'>" & rs("WEIGHT_BELLOW") & " kg" & "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td bgcolor='F3F3F3' width='50%'><font size='1' face='Arial'>Price:</td>"
response.write "<td bgcolor='F3F3F3' width='50%'><font size='1' face='Arial'>" & "PRIS" & " EUR" & "</td>"
response.write "</tr>"
strAddEJ = "Add to Quotation"
strAddEJLink= "<a href='ejadding.asp?id=" & rs("Id") & "'>" & strAddEJ & "</a>"
response.write"<td colspan='2' bgcolor='F3F3F3' valign='bottom' width='50%'><font size='2' face='Arial'>" & strAddEJLink & "</td>"
response.write "<td width='50%'> </td>"
response.write "</tr>"
response.write "</table>"
response.write "</td>"
response.write "<td width='50%'>"
response.write "<table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#111111' width='100%' id='AutoNumber4'>"
response.write "<tr>"
response.write "<td bgcolor='FFFFFF' align='center' width='100%'><img src='/types/" & "" & "' & width='150' height='150'></td>"
response.write "</tr>"
response.write "</table>"
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "<p>"
rs.movenext
loop
end if
response.write "</table>"
rs.close
Set rs = Nothing
response.write strSQL
set strSQL = Nothing
%>
</font>
</p>
</td>
</tr>
</font>
</table>
<font face="Arial">
<A0><font size="2" face="Arial"><a href="java script:history.back(-1);"><< Go Back</a></A0>
<A0><font size="2" face="Arial"><a href="resultall.asp">Show all >></a></A0></font>
</center>
</form>
</table>
</td>
</tr>
</table>
</font> <p><font face="Arial"><br>
</table>
</font>
</center>
</font>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
