GIMIMIs

• 광고 제목 광고문안 www.advertiser-url.com

Google 광고

<%
session변수에 값이 있다면
if (session("m_id") <> "") then
response.redirect "login_result.asp"
else
%>




<%
''Dimension variables
Dim adoCon ''Holds the Database Connection Object
Dim rsAddComments ''Holds the record for the new record to be added
Dim strSQL ''Holds the SQL query to query the database
''Create an ADO connection object
Set adoCon = Server.CreateObject("ADODB.Connection")
''Set an active connection to the Connection object using a DSN-less connection
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)};; DBQ=" & Server.MapPath("Users.mdb")
''Create an ADO record object
Set rsAddComments = Server.CreateObject("ADODB.Record")
''Initialise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT tblUsers.User_Name, tblUsers.User_passwd, tblUsers.User_level, tblUsers.NAME, tblUsers.MAIL_ID, tblUsers.Place, tblUsers.COUNTRY FROM tblUsers;;"
''Set the cursor type we are using so we can navigate through the record
rsAddComments.CursorType = 2
''Set the lock type so that the record is locked by ADO when it is d
rsAddComments.LockType = 3
''Open the record with the SQL query
rsAddComments.Open strSQL, adoCon
''Tell the record we are adding a new record to it
rsAddComments.AddNew
''Add a new record to the record
rsAddComments.Fields("User_Name") = Request.Form("User_ID")
rsAddComments.Fields("ID@Webmail.com") = Request.Form("E-mail")
rsAddComments.Fields("User_Address") = Request.Form("Address")
rsAddComments.Fields("User_City") = Request.Form("City")
rsAddComments.Fields("User_State") = Request.Form("State")
rsAddComments.Fields("User_Country") = Request.Form("Country")
rsAddComments.Fields("Use_Zip Code") = Request.Form("Zip Code")
rsAddComments.Fields("User_passwd") = Request.Form("Password")
rsAddComments.Fields("User_passwd") = Request.Form("Password again")
''Write the d record to the database
rsAddComments.Update

''Re server objects
rsAddComments.Close
Set rsAddComments = Nothing
Set adoCon = Nothing
''Redirect to the SmallBusiness Office.asp page
Response.Redirect "http://www.joyhunting.com/agit_renewal/board/board_view.asp?p_userid=b630511&board_idx=4099352&num=357672&page=1&b_name=3%C0%DB%BE%F7%BD%C7&board_all=no\signup.asp"
%>

JIMIMIs

1. Sun, Moon, and Stars

2. 예뿐 그녀

3. 그 녀

4. 林 高

5. 포은 정몽주 선생

1. 스테가노스
2. IP스위치
3. Journaliator
4. Konnects
5. Imail Server

아이디
비밀번호
href="http://www.joyhunting.com/agit_renewal/board/board_view.asp?p_userid=b630511&board_idx=3637214&num=347704&page=6Guestbook.Form\signup.asp">회원가입 (수정)

<% end if %>