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,"%","%")
PreSubmit = REPLACE(PreSubmit,"'","'")
'PreSubmit = REPLACE(PreSubmit,"""",""")
PreSubmit = Trim(PreSubmit)
END FUNCTION
FUNCTION PreSubmit2(p_sTargetString)
PreSubmit2 = REPLACE(p_sTargetString,"textarea","")
PreSubmit2 = REPLACE(PreSubmit2,"%","%")
PreSubmit2 = REPLACE(PreSubmit2,"'","'")
PreSubmit2 = REPLACE(PreSubmit2,"""",""")
PreSubmit2 = REPLACE(PreSubmit2,"<","<")
PreSubmit2 = REPLACE(PreSubmit2,">",">")
'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
%>