FROM AN ORACLE TABLE AND CONSTRUCT
INSERT STATEMENTS.
USE: IF THE TABLE IS LOST, YOU CAN RECONSTRUCT
HOW? JUST COPY THE OUTPUT THIS PROGRAM AND PASTE IT IN SQLPLUS PROMT
<%
result=request("result")
sql1=request("sql1")
if sql1 <> "" then
sqlarray=split(sql1,"$")
table_name=sqlarray(0)
if ubound(sqlarray)=1 then
extention=sqlarray(1)
end if
end if
password=request("password")
password_data="PUT YOUR PASSWORD HERE"
if password=password_data then
permit="yes"
end if
%>
<%
response.write(table_name)
%>
<%
if result="DONE" then
%>
SUCCESSFULLY COMPLETED
<%
end if
%>
<%
if result="CHECKPASSWORD" then
%>
CHECK THE PASSWORD
<%
end if
%>
<% if table_name <> "" and permit="yes" then
if extention="" then
sql="select * from " & table_name
else
sql="select * from " & table_name & " " & extention
end if
' response.write(sql)
set rs1=myconn.execute(sql)
if rs1.eof then
response.redirect("sql.asp?result=Sorry.No records found")
end if
myarray=rs1.getrows()
end if
%>
<% if table_name <> "" and permit="yes" then%>
<%
field_list=""
for i=0 to (rs1.fields.count - 1)
field_list=field_list & rs1.fields(i).name
If i < rs1.fields.count -1 then
field_list=field_list & ","
End if
next
%>
<%for i =0 to ubound(myarray,2)%>
<%
Response.write("insert into " & table_name & "("&field_list&") values (")
j=0
for j =0 to (rs1.fields.count - 1)
dt=""
field_type=cint(rs1.fields(j).type)
' Response.write(rs1.fields(j).type & "******")
if isNULL(myarray(j,i)) then
Response.write("NULL")
Elseif field_type=200 Then
Response.write("'")
Response.write(myarray(j,i))
Response.write("'")
Elseif field_type=135 Then
dt=myarray(j,i)
if isdate(dt) then
dd=day(myarray(j,i))
mm=monthname(month(myarray(j,i)))
yy=year(myarray(j,i))
dtf=dd & "-" & mm & "-" & yy
Response.write("'" & dtf & "'")
else
Response.write("'")
Response.write(myarray(j,i))
Response.write("'")
end if
Elseif field_type=5 or field_type=131then
'Response.write("'")
Response.write(myarray(j,i))
'Response.write("'")
End If
If j < rs1.fields.count -1 then
Response.write(",")
End if
Next
Response.write(");" )
' Response.write(")" & """" & ")")
%>
<%next %>
<% end if %>
<%
if Request("is_report") ="" then
%>
Enter the Select Statement
Separate tablename and the condition by $ sign
<%end if%>