non riesco a creare la connessione al DB mysql in questa pagina, non so dove inserire server=xx.xxx.xxx.xx;uid=Sqlxxxxx;pwd=xxxxxxx;data base=Sqlxxxx_x

-------------------------------------------------------------------------------------

<%
'dim whtConn, dbpath


set whtConn = server.createobject("adodb.connection")

'********EDIT THE LINE BELOW TO MATCH THE DSN OF YOUR MYSQL DATABASE DSN CONNECTION NAME ********
whtConn.Open "mysqlcms"
'************************************************* *********************



'FUNCTIONS
FUNCTION PreSubmit(p_sTargetString)
PreSubmit = REPLACE(p_sTargetString,"textarea","")
PreSubmit = REPLACE(PreSubmit,"%","&#37;")
PreSubmit = REPLACE(PreSubmit,"'","&#39;")
'PreSubmit = REPLACE(PreSubmit,"""","&quot;")
PreSubmit = Trim(PreSubmit)
END FUNCTION

FUNCTION PreSubmit2(p_sTargetString)
PreSubmit2 = REPLACE(p_sTargetString,"textarea","")
PreSubmit2 = REPLACE(PreSubmit2,"%","&#37;")
PreSubmit2 = REPLACE(PreSubmit2,"'","&#39;")
PreSubmit2 = REPLACE(PreSubmit2,"""","&quot;")
PreSubmit2 = REPLACE(PreSubmit2,"<","&lt;")
PreSubmit2 = REPLACE(PreSubmit2,">","&gt;")
'PreSubmit2 = REPLACE(PreSubmit2,vbCrlf,"
")
PreSubmit2 = Trim(PreSubmit2)
END FUNCTION


Function MySQLRecordCount
recordcount = 0
while not dataRS.EOF
recordcount = recordcount + 1
dataRS.movenext
wend
if recordcount > 0 then
dataRS.movefirst
end if
mysqlrecordcount = recordcount
End Function

Function MySQLRecordCount2
recordcount = 0
while not updateRS.EOF
mysqlrecordcount = recordcount + 1
updateRS.movenext
wend
'updateRS.movefirst
'mysqlrecordcount = recordcount
End Function

%>