<% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "Driver={MySQL}; SERVER=mysql.space2u.com; DATABASE=d4144; UID=d4144; PWD=PlfqgNkF" Set RecSet = Server.CreateObject("ADODB.Recordset") Addera = "Select rate From currency Where countryTo = 'uppat'" RecSet.Open Addera, Connect %>

:نرخ ارز در ايران نرخ انجام مبادلات براي مبلغ 70000 کرون = <%=RecSet("rate")%> تومان

aschnaexchange.com

<% RecSet.Close Connect.Close Set RecSet = nothing Set Connect = nothing %>