<%@Language = "VBScript"%>
<% 'get ID
ID = Request.QueryString("ID")
SQL = "SELECT * FROM Books WHERE BookID = " & ID & ""
Set RS = Conn.Execute(SQL)
SQL2 = "SELECT AuthorID, FirstName, LastName FROM Authors WHERE AuthorID = " & RS("AuthorID") & ""
Set RS2 = Conn.Execute(SQL2)
FUNCTION FileExist(FileName)
Dim FS, DoesExist
DoesExist = FALSE
SET FS=Server.CreateObject("Scripting.FileSystemObject")
IF (FS.FileExists(FileName)) = TRUE THEN
DoesExist = TRUE
END IF
SET FS=Nothing
FileExist = DoesExist
END FUNCTION
%>
Super Authors: Unsubscribe
To unsubscribe from the NovelTalk newsletter,
please enter your email and click on the Submit button.
