07/10/2014, 16:41
pasa1453
Kod:
<%
If strveriturustr = "2" Then
Set Connect = server.CreateObject("ADODB.connection")
Connect.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER="&strserverstr&";DATABASE="&strveritabanistr&";UID="&strkullanicistr&";PWD="&strsifrestr&";Port=3306;option=16387;"
'Connect.Execute("SET NAMES 'latin5'")
'Connect.Execute("SET CHARACTER SET latin5")
'Connect.Execute("SET COLLATION_CONNECTION = 'latin5_turkish_ci'")
Elseif strveriturustr = "1" Then
Set Connect = Server.CreateObject("Adodb.Connection")
Connect.Open "driver={SQL Server};server="&strserverstr&";uid="&strkullanicistr&";pwd="&strsifrestr&";database="&strveritabanistr&""
Elseif strveriturustr = "0" Then
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(""&wwgeneldb&".mdb")
End if
%>