<%@ Language=VBScript %> <% strSQL ="SELECT * FROM artikel where artnr like " & Request.QueryString ("ART")' order by artnr" ' Datenbankverbindung erzeugen Set con = server.CreateObject ("ADODB.Connection") con.Open application("dbconnect") set rs = server.CreateObject("ADODB.recordset") rs.Open strsql,con if not rs.EOF then %>

<%=formatcurrency(rs("preis"))%>

&art=<%=Request.QueryString ("ART")%>&PR=<%=rs("preis")%>&BEZ=<%=rs("bezeichnung")%>" onclick="javascript:alert('Der Artikel wurde in den Warenkorb gelegt.')">

<% else %>

Anfrage: 0676 844 184 844

<% end if rs.Close set rs = nothing con.Close set con = nothing %>