<%
nomid = "stmaris"
alto = 19
ancho = 13
Set Ob_Conn = Server.CreateObject ("ADODB.Connection")
Set Ob_Command = Server.CreateObject ("ADODB.Command")
Set Ob_RS = Server.CreateObject ("ADODB.RecordSet")
temp1="contador"
temp2="sysdba"
temp3="solounaclave"
Ob_Conn.Open temp1,temp2,temp3
Ob_Command.ActiveConnection = Ob_Conn
Ob_Command.CommandText = "select * from contador where id='" & nomid & "'"
Ob_RS.Open Ob_Command , , adOpenStatic
contador=ob_rs("contador")
ob_rs.close
Ob_Command.CommandText = "UPDATE contador SET contador=" & (contador+1) & " where id='" & nomid & "'"
Ob_RS.Open Ob_Command , , adOpenStatic
Ob_conn.close
icount=contador
For I = Len(iCount)+1 to 6
Response.Write ""
Next
For I = 1 to Len(iCount)
' Output the IMG tag using the right digit
Response.Write "
"
Next 'I
%>
Club Stella Maris, 2001 - Todos los derechos reservados
web optimizada 1024x768