Here it is. Thanks buds!
<%--
Written by Vormav
--%>
<%@ Page language="vb" aspcompat="true" Debug="true"%>
<%@ Import Namespace = "nce.scripting" %>
<%
Dim SNo As String = Request.QueryString("SNo")
Dim yyMM As String = DateTime.Now.ToString("yyMM")
Dim dbhost = "127.0.0.1"
Dim dbname = "ClanDB"
Dim dbuser = "clan"
Dim dbpass = "clan"
%>
<%
ODBC_String = "Provider=SQLOLEDB; Data Source=" & dbhost & "; Initial Catalog=" & dbname & "; User ID=" & dbuser & "; Password=" & dbpass
ODBC_Connect = new ADODB.ConnectionClass()
ODBC_Connect.Open(ODBC_String)
ODBC_Record = new ADODB.Recordset()
ODBC_Record.Open("INSERT INTO soddb.dbo.sod2clan" & yyMM & " SELECT clandb.dbo.ul.ChName,Point, RegistDay, ClanName FROM clandb.dbo.ul, soddb.dbo.sod2record" & yyMM & " WHERE clandb.dbo.ul.ChName = soddb.dbo.sod2record" & yyMM & ".charname AND SNo = " & SNo & " AND RegistDay BETWEEN (dateadd(minute,-1,getdate())) AND (dateadd(minute,+1,getdate()))", ODBC_Connect, 3, 1)
ODBC_Record.Open("UPDATE ClanDb.dbo.CL SET RegiDate = GETDATE(), Cpoint = (SELECT SUM(Point) FROM SodDb.dbo.Sod2Clan" & yyMM & " WHERE SodDb.dbo.Sod2Clan" & yyMM & ".RegistDay BETWEEN (dateadd(minute,-1,getdate())) AND (dateadd(minute,+1,getdate())) AND ClanName = (SELECT clandb.dbo.ul.ClanName FROM ClanDB.dbo.UL INNER JOIN soddb.dbo.sod2record" & yyMM & " ON SNo = " & SNo & " AND clandb.dbo.ul.ChName = soddb.dbo.sod2record" & yyMM & ".CharName)) WHERE ClanName=(SELECT clandb.dbo.ul.ClanName FROM clandb.dbo.UL INNER JOIN soddb.dbo.sod2record" & yyMM & " ON SNo = " & SNo & " AND clandb.dbo.ul.ChName = soddb.dbo.sod2record" & yyMM & ".charname) AND ClanDB.dbo.CL.Cpoint <= (SELECT SUM(Point) FROM SodDb.dbo.sod2clan" & yyMM & " WHERE SodDb.dbo.Sod2Clan" & yyMM & ".RegistDay BETWEEN (dateadd(minute,-1,getdate())) AND (dateadd(minute,+1,getdate())) AND ClanName = (SELECT clandb.dbo.ul.ClanName FROM clandb.dbo.ul INNER JOIN soddb.dbo.sod2record" & yyMM & " ON SNo = " & SNo & " AND clandb.dbo.ul.ChName = soddb.dbo.sod2record" & yyMM & ".charname))", ODBC_Connect, 3, 1)
Response.Write("Bellatra")
Response.End()
ODBC_Record.Close()
%>
<script language="vb" runat="server">
Dim ODBC_String As String
Dim ODBC_Connect As Object ' ADODB.Connection
Dim ODBC_Record As Object ' ADODB.Recordset
</script>