<%@Language=VBScript%> <% OPTION EXPLICIT DIM CigarID DIM StrCom DIM strSql1 DIM cnMain DIM rsCigarMake DIM rsCigarBlend Dim strSql2 Dim strSql3 Dim rsCigarDetails Dim ImageName Dim ImageHeight Dim ImageWidth Dim PathName CigarID=Cstr(Request.QueryString("CigarID")) StrSql1="SELECT MAKECODE, MAKENAME, RING, LENGTH, BLEND FROM CIGARMAKE WHERE BLEND LIKE '%" & CigarID & "%'" StrSql2="SELECT BLENDCODE, BLENDNAME, IMAGENAME FROM CIGARBLEND" 'Add this line StrSql3="SELECT Right(CIGARCODE,3) as Make,IMAGENAME,IMAGEHEIGHT,IMAGEWIDTH FROM CIGARDETAILS WHERE Left(CIGARCODE,3) = '" & CigarID & "'" %> <% SET cnMain = Server.CreateObject("ADODB.Connection") pathname=server.mappath(".") & "\main.mdb" cnMain.open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & pathname set rsCigarMake=cnMain.Execute(strsql1) set rscigarBlend=cnMain.Execute(strsql2) rsCigarMake.Movefirst set rscigarDetails=cnMain.execute(strsql3) %>

<% 'Open text file for blend description Const ForReading = 1, ForWriting = 2, ForAppending = 3 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 Dim fs, f, ts, nav Set fs = CreateObject("Scripting.FileSystemObject") 'Set f = fs.GetFile("C:\My Documents\Project\La Flor\" & CigarID & ".txt") Set f = fs.GetFile(server.MapPath(".") & "\" & CigarID & ".txt") Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault) do while not ts.atendofline nav = ts.readline response.write nav loop ts.Close Do While not rscigarMake.eof 'This is the added code RsCigarDetails.Movefirst do while not Rscigardetails.eof if RsCigarDetails("Make") = RsCigarMake("MakeCode") then ImageName=RsCigarDetails("ImageName") ImageHeight=RscigarDetails("ImageHeight") ImageWidth=RsCigarDetails("ImageWidth") exit do end if Rscigardetails.movenext loop %> <% rsCigarMake.movenext LOOP %>

<%Response.Write rsCigarMake("MakeName")%>

width=<%=IMAGEWIDTH%> height=<%=IMAGEHEIGHT%>>

Length : <%Response.Write rsCigarMake("LENGTH")%> mm

<% rsCigarBlend.movefirst Do While not rsCigarblend.eof if rsCigarBlend("BlendCode")<>CigarID then StrCom=instr(1,rsCigarMake("Blend"),rsCigarBlend("BlendCode")) if StrCom <> 0 then %> width="30" height="36"> <% end if end if rsCigarBlend.MoveNext Loop %>

Ring Gauge : <%Response.Write rsCigarMake("RING")%> mm

also in:

>

> <% cnMain.Close SET cnMain = nothing set rsCigarMake=nothing set rscigarBlend=nothing set rscigarDetails=nothing %>