% If Request.Form.Count > 0 Then %> <% End If %> <% 'Set MyConn = Server.CreateObject("ADODB.Connection") 'MyConn.Open "DSN=homestaysingapore;Pwd=vulcan404" Set MyConn = Server.CreateObject("ADODB.Connection") DSNtest="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\..\..\database") & "\homestaysingapore.mdb" MyConn.Open DSNtest %>
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||