<% dim q q = request ("q") if len("q")= "0" then q = "001" end if dim ID ID = request ("ID") if len("ID")= "0" then ID = "001" end if dim star star = request ("star") select case (star) case (0) star = "30" case (1) star = "35" case (2) star = "40" case (3) star = "45" case (4) star = "50" case else star = "30" end select on error resume next Dim file_id,price file_id = request("id") query_get_content = "SELECT price FROM TB_FILES where file_id = '" & file_id & "'" dim conn,rs set conn = server.CreateObject("ADODB.connection") set rs = server.CreateObject("ADODB.RecordSet") conn.Open DSN,db_user,db_pass rs.Open query_get_content,conn rs.MoveFirst CONTENT_PRICE = rs.Fields("price").value rs.close %>
Handywoman: movie <%Response.Write q%>

<%response.write CONTENT_PRICE%> eurocent