<% ConnectionString = "Provider=SQLOLEDB;Data Source=sql60.enterhost.com;Initial Catalog=BA321;user ID=BA321;password=walkerhilladm90 ;" Set GetDBConn = Server.CreateObject("ADODB.Connection") GetDBConn.Open(ConnectionString) writer=request("writer") email=request("email") tel=request("tel") hp=request("hp") subject=request("subject") content=request("content") reg_time=Now ' Request·Î °Ô½Ã¹° ³»¿ë ¹Þ¾Æ¿À±â Subject = Replace(Subject,"'","''") Content = Replace(Content,"'","''") strSQL = "INSERT INTO email_list(writer,email,tel,hp,subject,content,reg_time)VALUES('"&writer&"','"&email&"','"&tel&"','"&hp&"','"&subject&"','"&content&"','"®_time&"')" Set Board = GetDBConn.execute(strSQL) %>